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نفد تفت EA‏ من Aa jo A‏ ج الحوسبة 
الاحصائية وهو dal‏ البرمجة e R‏ حبث لس المولفات العربية من البرامج 
الاحصائية بالندرة الشديدة» ونأمل ان يساهم هذا الكتاب في سد النقص ولو بشي ء 
يسير » كما وقد حاولنا اغناء موضوع الكتاب بأهم المصادر من كتب اجنبية ¿Sl ga y‏ 
الكترونية وخاصة الموقع الرسمي للغة البرمجة R‏ . 

فمع زيادة القدرة الحاسوبية تأتي زيادة فرص الحصول على كميات كبيرة من 
NAO Te re he‏ المشاكل الاحصائية » هذه 
لك السیطر ة a de‏ وان a‏ یله که 
استخدام الحاسوب . 

ale‏ الاحصاء هو احد العلوم call‏ درس الطرق العلمية لجمع البیانات وتنظیمها 
وتحلیلها للحصول على نتائج موثوقة لتدعم اتخاذ القرارات السليمة والصانبة لهذا 
التحلیل . 

كما ان اتساع عملية التعامل مع الاحصاء الرياضي والحاجة الملحة لایجاد 
المهمةه دعت الحاجة المختصين للتعامل مع ی الإحصائية ue Saul‏ 
All‏ فقد اصبحت البرامج الاحصائية اکثر تداو لا 0 تدرس cst‏ مختلف المعاهد 
والجامعات المنتشرة في تطبيقات الأعمال الهامة » وهذا ما نلمسه واضحاً فى تدريس 
برنامج معالج الجداول Excel‏ والبرنامج الاحصائي SPSS‏ وبرنامج Matlab‏ و 
Minitab‏ وبرنامج SAS 3S‏ . 

R‏ هو في العالم الأكثر استخداما على نطاق واسع كلغة برمجة الإحصاءات. انها 
الخيار رقم 1 من علماء البيانات وبدعم من مجتمع نابض بالحياة والموهوبين من 
المساهمين. 


A ae‏ شيف تحر لوك A)‏ حر لحري و واكم 
وانواع البيانات وكيفية حفظها واستدعائي, ؛ ثم كيفية الرسم al‏ وكتابة العبارات 

ان aa hs ont‏ سم ا برامج الحوسبة 
dr a EE‏ لسکا وش اس رن 

وارجو میا در ي التقصير بعدم سرد مختلف العمليات en‏ 9۲ 
في ازالة Gage‏ ووضعك على اولى عثبات لغة البرمجة الحرة R‏ والتي نسم 
باطلاق وت i‏ الصفحات المساعدة من الارتباطات التشعبية لتدخل 
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Statistical Computing الحوسبة الإحصائية‎ 1 

تمثل الاستخدام الواسع من الطرق والاساليب والتي تشمل مختلف مهارات علم 
الاحصاء وعلم الحاسبات لحل المشاكل وتحليل الظواهر الطبيعية أو الاجتماعية. 

كما تؤكد على تأثير الحوسبة على الإحصاءات والعكس بالعكس. والعمل في 
مجموعة ون المجالات فی الاحصاءات» Lay‏ فی ذلك القیاسات الحيوية 
الاقتصاد القیاسی» وتحلیل البیانات» والرسومات» والمحاکاة» والخوارزمیات و النظم 
القائمة على المعرفة والحوسبة النظرية الافتراضية. اضافة الى الاسالیب الإحصائية 
المکثفة حسابیا Lu‏ فى ذلك اختزال طرق» سلسلة مارکوف مونتی کارلو الأسالیب 
والانحدار المحلی » نواة تقدیر الكثافة » الشبکات العصبية الاصطناعية ‏ 

ویوجد الکثیر من البرامج الاحصانية التي قد تتمیز الواحدة عن الاخری بمعالجة 
بسیطه او قد لا تختلف الا فى تسميتها .. 

ومن البرامج المتخصصة بالحوسبة الاحصانية هي : 

Matlab , Minitab, Excel, SPSS,S,R 

ويوجد La!‏ مصطلح " الاحصاءات الحسابية ‘computational statistics’‏ 
الذي يهدف الى تصميم خوارزمية لتنفيذ الاساليب الاحصائية على اجهزة الكمبيوتر. 
في الوقت الذي تمثل الحوسبة الاحصائية تطبيق علوم الحاسب الالي للاحصاءات. 


1 الحوسبة الاحصائية في لغة البرمجة +1 

R‏ هو co il‏ لغة برمجة في العالم للحوسبة flea!‏ والتعلم الالي والرسومات 
وكذلك مجتمع عالمي مزدهر من المستخدمین والمطورین والمساهمین. فقد تطورت 
R‏ بسرعه لتصبح لغة البرمجه الرئيسية في مجال الا حصاءات و البیانات العلمية وان 
عدد مستخدمي R‏ ينمو بنسبة %40 سنويا . 

وتعنبر R‏ لهجة من اللغة الاحصائية 5 وتطبیق حدیث لها »حيث 5 لغة برمجه 
OR‏ سكف و haa‏ تنك e ld‏ 

الحوسبة الاحصائية في R‏ هو لتوضح كيفية استخدام ما هو متاح بحرية في 
حزمة البرامج R‏ لتحليل البيانات والبرمجة الإحصائية» والرسومات. حيث وجود 
الكود والأمثلة من جميع أنحاء النص يتطلب فقط åå jea‏ أساسية من الاحصاءات 
والحوسبة. 

ويشمل هذا تقديم تحليل وتوزيع التشخيص لعبنة و aa)‏ الانحدار مشاکل عينتين 


EN 


لغة البرمبة R‏ للحوسبة الأحصائية 


اثنين ومقارنة التوزیعات وتحليل متعدد المتغيرات. ويستخدم مجموعة من الأمثلة 
لتوضيح كيف يمكن استخدام R‏ لمعالجة المشاكل الإحصائية. 

وبسبب کون R‏ مفتوحه المصدر. تم اعتمادها من قبل أقسام الإحصاء في 
جامعات من مختلف أنحاء العالم» فالطبيعة التوسعية ومجانية اللغة جعلتها تلعب دوراً 
ميما فى البحوث الأكاديمية؛ JA y‏ قصير: fas‏ الباحتون الاحصانیون و علماء 
البیانات والتعلم الآلي بنشر الأبحاث العلمية المحتوية على التعلیمات البرمجية ل R‏ 
لتنفیذ مهام العمل الجديدة بسهولة . كما يمكن GY‏ شخص أن ينشر deja‏ عمل في 
"شبكة الأرشيف الكامل ل8" المسماة اختصاراً «CRAN-‏ وتصبح متاحة للجميع. 
حتى كتابة هذه السطورء ساهم آلاف من مستخدمو لغة R‏ بأكثر من 6100 حزمة 
عمل» موسعين قدرات اللغة إلى مجالات متنوعة کالاقتصاد وتحليل التجارب 
السريرية والعلوم الاجتماعية وبيانات الويب. ويمكن لأي شخص أن يقوم بالبحث 
عن التطبيقات في (MRAN/ Microsoft R Application Network)‏ 
MRAN‏ عن الموضوع الذي يريده 5 LS‏ في الشكل ادناه . 


N > 
(Orr https://mran.revolutionanalytics.co X ome: | 5 e. سر — حسم‎ Mar 
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ANNOUNCEMENT 
R is the world's most powerful programming language for statistical computing, machine learning and Revolution R Open is now known 
graphics as well as a thriving global community of users, developers and contributors. as Microsoft R Open. 


Download version 3.2.5 today. 


© Microsoft R Open #5 CRAN Time Machine 45, R Packages 


Microsoft R Open is the enhanced distribution of open For the purpose of reproducibility, MRAN hosts daily 
source R from Microsoft Corporation. Enhancements snapshots of the CRAN R packages and R releases as 
include multi-core processing, a fixed CRAN far back as Sept. 17, 2014. Use our Time Machine to 

repository date, and reproducible R with the browse CRAN contents from the past. 
checkpoint package. 
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MRAN (1-1) شكل‎ 


1 مجالات الاستخدام 
فى مجالات الحياة اليومية نبحث دائما عن تقدیر الاشياء والمتمثلة بالارقام 


+. 


والاحصائیات il‏ صحنها و اتخاذ القرارات المناسية لها 











الفصل الأول : العوسية اللحسانية 


كما ان استخدام الحاسوب كوسيلة متطورة لادخال البیانات واجراء الحسابات 
الاحصائية .. 
E-‏ الشکل اادناه بعص الامئله لمجالات عمل الحوسبة الاحصائية 





Im ©) 


Te ee ee 
a 


شکل )2-1( مجالات عمل ds sad)‏ الا Allan‏ 


بطرق احصائية 

2 دراسة وتحلیل الجینات ومقارنتها وتصنیفها للسيطرة مستقبلا على Val yal‏ 
مستعصية مثل السرطان . 

3) العمل في شرکات العقاقیر والادوية بالاعتماد على الدراسات الا حصانية 
of gall „a‏ وفاعلیته 

4( اعتماد الدراسة في الاقتصاد والاعمال وتوقعات السوق المالية على التحلیل 
الاحصاني لمؤشرات العرض و الطلب والاستهلاك . 

5) تطبیقات الشبکات والانترنت تاخذ حيزاً کبیرا في مناهج الحوسبة الاحصائية. 


1 هدف دراسة الحوسبة الاحصائية 

يشير مصطلح الحوسبة الاحصائية الى فضاء رحب من الطرق والاساليب التي 
تشترك فيها مهارات متعددة من ale‏ الاحصاء وعلم الحواسيب والتعلم الالي لحل 
المشاكل وتحليل الظواهر الطبيعية والاجتماعية والاقتصادية كما وتساهم الحوسبة 





dz‏ البرمجة R‏ للحوسبة الأحصائية 


الاحصاتية في تلبية حاجة سوق العمل والذي يعتمد على استخدام القياسات 
الاحصائية وتتمثل هذه الدراسة الالمام في المجالات التالية : 

1( علم الحاسوب و الاحصاء 

02 لغات البرمجة المُهيكلة 

3 نظم المعلومات وتطبیقات النماذج الاحصائية 


1 تحلیل البیانات والاحصاء 

ان Se‏ اه اس هی مان مورا ار ات يمد 
are AA AAA‏ مات الكرة 
للحوسبة الإحصاتية والرسوم البيانية » بالاضافة إلى ان R‏ تنفیذ أساسا كل التحلیلات 
الاحصائية القياسية + حت يمك القول بان UR‏ مرنة لا مثیل لها من قل البرامح 
الاحصائية الاخرى وکما في لغات البرمجة الشيئية تسمح لخلق الوظائف التي تودي 
اجراءات مخصصة * واتمتة المهام الذي پنم تنفید ها Sale‏ ۱ 

في R‏ تتم التحليلات الإحصائية عادة على شكل سلسلة من الخطوات e‏ وان 
النتائج المتوسطة يجري تخزينها في الاشياء و يسمح بسهولة باستخدام نتائج تحليل 
al;‏ كمدخل لتحليل آخر. وعلاوة على ذلك R‏ تحتوي على كائنات area‏ المعلومات 
لنموذج ذات الصلةء. حزم R‏ للابتكارات جديدة في الحوسبة الإحصائية Ea‏ يميلون 
أيضا لتصبح متاحة بسرعة أكثر مما تفعل هذه التطورات في غيرها من حزم البرامج 





he ره‎ 





الفصل الأول : الحوسية الأحصائية 


TAE 





س2: تكلم عن الحوسبة الاحصائية في لغة البرمجة R‏ ؟ 
س3: اذكر امثلة لمجالات عمل الحوسبة الاحصائية ؟ 


الفصل الثاني 
مقدمه للغة R‏ 


2 تعريف لغة R‏ 

2 لماذا تستخدم R‏ 

2 مميزات لغة R‏ 

R حدود‎ 2 

2 تنصيب لغة R‏ 

2 تشغيل برنامج +1 

2 واجهة برنامج R‏ 

2 الاوامر الخاصة في لغة البرمجة +1 
2 انهاء R‏ 

2 الحصول على المساعدة 

2 ايعازات عامة 

2 فضاء العمل The Workspace‏ 
2 الاوامر الاساسية في R‏ 





اسئلة الفصل الثاني 


الفصل الثاني ۰ حقدهة للغة R‏ 


2 تعريف لغة R‏ 
ear lisos e‏ 
تستخدم R‏ بشكل واسع بين الإحصائيين لتطوير البرامج ج الإحصائية وتحليل وتمثيل 
البيانات والقيام بالعمليات الحسابية والرسوم البيانية . 
وهي متوفرة ومتاحة على شبكة الانترنت من la‏ وكتب الكترونية وبرامج 
جاهزة Mai‏ مهمة ما كما وتحتوي ۸ على مجموعة حزم مفتوحة المصدر مطورة من 
طرف اناس ومجموعات ابحاث .وان الاصدار الاول للغة AR‏ تسعينات القرن 
الماضي وتحديدا عام ۰1993 حيث صُممت هذه اللغة من قبل روس إلهاكاء وروبرت 
جينتلمان خبيري الاحصاء بجامعة اوكلاند في نيوزيلندا وقد سميت بلغة WYR‏ 
ترمز الى الحرف الاول من اسميهما » وقد تطور مشروع هذه اللغة ليشمل اكثر من 
عشرين بين احصائي وعالم كمبيوتر من جميع انحاء العالم. 
استطاعت TER dal‏ الشركة العنكبوتية آن تجذب في وقت قصير اهتمام 
و را ای كن لكات این مه ماب نجه 5 والني ثم تسین کی 
عام 0 وقد استخدمت بشکل و اسع النطاق ١‏ في المجتمع الاحصائي . 
R‏ هي äns åd‏ تطویر (Language and development‏ 
environment)‏ متخصصة في تحليل وتمثيل البيانات والحوسبة الإحصائية. 
في السنوات العشر الأخيرة» تجاوزت R‏ الدوائر الأكاديمية إلى قطاعات 
تكنولوجية متعددة حيث تقوم باستعمالها شركات كبرى La‏ في ذلك Google‏ و 
Microsoft‏ وموقع Facebook‏ ) لتحليل البيانات الشخصية .(ثم إن شركات أدوية 
alle‏ تعتمده لتحلیل البیانات اروا 
وتعتبر R‏ لغة ديناميكية وسريعة التغير › لدلك من المهم مواكبة احدث الادوات 
والتقنیات . 
ویتمیز ال R‏ بکونه یتمتع بصفات لغات البرمجه الاخری Cus‏ يمكن القیام 
EN Se Bag‏ 
ان إحدى نقاط قوة Rael‏ هي سهولة توسعتها بالاستفادة من مجموعة 
Lay!‏ الهائلة المتاحة لهاء والتي قام بتطویرها الالاف من الجامعات والمراکز 
العلمية وکل الباحثون المستقلون وطلاب الدراسات العلياء يعينهم في ذلك السهو Al‏ 


dz‏ البرمجة R‏ للحوسبة الأحصائية 


النسبية في آلية بناء مثل تلك المكتبات أو الإضافة الجديدة لهذه اللغةء للاطلاع على 
لائحة الإضافات الرسمية المنشورة على موقع لغة R‏ من الرابط lates Ay‏ 
(Macia‏ في روسيا الاتحادية لضمان الوصول إليه بسهولة دون أي حجب!): 

http://cran.g1s-lab.info/web/packages/available packages by 


name.html 
وللتعرف بالية بناء مكتبته أو إضافته الخاصة فعلى المرجع:‎ 
http://cran.r-project.org/doc/contrib/Leisch-CreatingPackages. 
l pdf 

من الإضافات المميزة الإضافة sill qqplot2‏ تفتح افاقا واسعة لتحسين واثراء 
أنواع المخططات البيانية التي يمكن توليدها والحصول عليها. 


2 لماذا نستخدم R‏ 
R‏ هو برمجيات حرة وهو مشروع sin‏ الرسمية وتوزيعها وفقا لمؤسسة 

البرمجيات الحرة الترخيص العام ( GPL/General Public License‏ ) 
كما R ay‏ مصدرا قویا لحزمة تحلیل البیانات مع العديد من المعاییر والدالات 
الإحصائية المتطورة. فهو یستخدم على نطاق واسع في العلوم Arad)‏ 
الاجتماع والتمويل» الخ 

یتمیز ال ۸ بکونه یتمتع بصفات لغات البرمجه الاخری Ea‏ يمكن القیام 
بالبرمجه الكائنية وحتی انشاء صفحات ویب. لكن ما يميزه هو انه يحتوي على 
العدید من a jall‏ الاحصائية مما جذب إليه العدید من الاحصائيين. ۱ 

تلقی لغة ال R‏ اهتماما کبیرا فى مجال المعلوماتية الحيوية لعدة آسباب» من بینها 
سهولة الاستعمال اذا يمكن لباحث ذو خلفية زهيدة في البرمجة أن یتعلم استعمالها 
على الاقل في مستوی يلبي حاجیاته الاساسية في تحلیل البیانات ورسم المخططات 

و سیب Al‏ هو توفر AO‏ کی عم ی البیانات gull‏ لو dia‏ حيث أن 
اغلبية الباحئین یقومون بنشر خوازمياتهم بلغة ال R‏ إلى درجة أنه تم انشاء 
مستودع bioconductor (eja‏ موقع يحتوي على الحزم البرمجية) خاص فقط 
Ola‏ شکل جذاب بسهولد. 


الفصل الثاني ۰ tanga‏ للغة R‏ 


R‏ هي dal‏ البرمجة لذلك يمكن بسهولة أن تمتد قدراته من خلال استخدام 
الدالات المعرفة من قبل المستخدم. ومجموعة كبيرة من الوظائف والحزم المتوفرة 
مع Alle‏ (كرا (CRANA i‏ من مواقع الانترنت http://CRAN.R-) e‏ 
.)2. 
وللحصول على فكرة عن ما يمكنك القيام به في 1 ننظر الى شبكة الارشيف الشامل 
المسماة (CRAN)‏ وهي كما يلي : 
الاستدلال و النظر dy‏ الافتر اضية 


الفيزياء احاسو ای ای 


تصميم التجارب ae‏ الطاقة) وتحليل 


= — تست 
والجرافيك أجهزة والتصور 

متعدد المتغيرات O an‏ متعدد المتغيرات الاحصائيات 

4alled/NaturalLanguageProcessing‏ اللغات الطبيعية 

NumericalMathematics 

OfficialStatistics‏ الاحصانيات الرسمية ومنهجية المسح 





dz‏ البرمجة R‏ للحوسبة الأحصائية 


Spe) ale‏ العرقي؛ طرق المقارنة خاصة 
مك بل يقت sa‏ 


a iste ان‎ er um 
لیتم تثبيتهاء والتي سیتم توضیحها في‎ CTV لتثبیت هذه الاراء تلقائياء تحتاج حزمة‎ 
فصول اخری.‎ 





2 ممیزات لغة R‏ 

تتميز لغة ال R‏ ببساطتها اذ آنها لغة سکریبت Scripting Language‏ فلا 
تحتاج لكتابة دالة دخول كما هو في لغات البرمجة الكلاسيكية. 

حيث یعتبر اول سطر هو اول امر » وفیما يلي ممیزات اخری للغة البرمجة R‏ : 
1- متوفرة في موقع مجاني ومفتوح المصدر لغرض تنصیبها على حاسبتك .اي 
2- تعمل مع عدة آنظمة تشغیل مثل نظام لینوکس ویونکس وماك وویندوز . 
استعمل الامر sum‏ لحساب المجمو ع والامر var‏ لحساب التباین mean N);‏ 
لیات T‏ وه 
4- انه يحتوي على إجراءات إحصائية متقدمة غير متوفرة في مجموعات أخرى. 
رسومات جذابة بسهولة 
R -6‏ حساسة لحالة a yal‏ 
7- لها قابلية لبرمجة الحسابات المتوازية Gus parallel computing‏ يمكن حل 
عملیات الحوسبة المعقدة والنظم الاحيائية 


الفصل الثاني ۰ tanga‏ للغة R‏ 


8- هي لغة مفسرة Interpreted Language‏ اي التنفيذ مباشرة بدون ترجمة وهذا 
ما نجده lua) y‏ في تغيير التعامل مع انواع البيانات اثناء التنفيد 

E.‏ واد والتقنية ... الخ مما جذب إليه العديد من الباحثين والاحصائيين 
ei = 11‏ التي rn‏ وبشكل ba‏ دون تكديس المخرجات خلافاً 


2 حدود R‏ 
لكل de]‏ برمجة حدود» فمن الواضح انك لن تستطیع مثلا عمل لعبة ثلاثية الابعاد 
بواسطة R‏ كما أنك لن تستطیع حل کل المشاکل الرياضية وتحلیل ajos‏ آنواع 

البیانات . 

- لتحليل الأطياف والإشارات (Signal processing)‏ ومحاكاة النظم الإلكترونية 
سيكون من الأفضل استعمال لغات الحوسبة العددية مثل ماتلاب. 

- بما أنها لغة مفسرة» ستكون R‏ أبطأ في د بعض البرامج الضخمة وذات البنية معقدة 
في هذه الحالف ace E‏ ووو ب 
Compiled"‏ مثل "SAS"‏ أو فورتران 

-قد تکون ذاكرة R‏ غير مهيأة لتعامل مع بیانات ذات سعة فانقة لانها تقوم بتحمیل 
كافة البيانات و المکتبات E‏ الداکرة الحية) والحل المتوفر هو انشاء قاعدة بیانات 
خارجية وربطها بها). 


2 تنصيب لغة +1 

تستطيع أن تقوم بتحميل لغة R‏ من الموقع الرسمي لها على الرابط http://www.r-‏ 
project. Org‏ ¢ وعملية ua‏ هذه اللغة تخلو من التعقيدات وبانتهائها ¿ias‏ 
تشغيل سطر الأوامر الخاص بها بتقر أيقونة اللغة على سطح المکتب» وكل ما نكتبه 
تاليا یکون داخل سطر الأو yal‏ ها 


لغة البرمبة R‏ للحوسبة الأحصائية 


2 تشغيل برنامج +1 





2( او من All Programs € start‏ € 
وحينها ستظهر الشاشة الافتتاحية بسطر الاو امر الخاصة بلغة ۸ Gua‏ تظهر Aue le‏ 
التتصیص )>( للبدأ بكتابة الاوامر.انظر الشكل )1-2( : 


File Edit View Misc 0 Windows Help 


اهادم ححا 


R version 3.2.0 (2015-04-16) -- "Full of Ingredients" 
Copyright (C) 2015 The R Foundation for Statistical Compu$ 
Platform: i386-w64-mingw32/i386 (32-bit) 


R is free software and comes with ABSOLUTELY NO WARRANTY. 
You are welcome to redistribute it under certain conditio$ 
Type ‘license()' or ‘licence()' for distribution details. 


R is a collaborative project with many contributors. 
Type "contributors()' for more information and 
'citation()' on how to cite R or R packages in publicatio$ 


Type 'demo()' for some demos, "help()' for on-line help, $ 
۱ 61 0 . 502۳70 )( ۲ for an HTML browser interface to help. 


Type 'qa()' to quit R. 


[Previously saved workspace restored] 





> | 





شكل )1-2( الشاشة الافتتاحية في لغة R‏ 
2 واجهة برنامج +1 
2 شريط القو ائم File Edit View Misc Packages Windows Help‏ 
یظهر فيه اسماء القوائم للبرنامج وفيما يلي الاوامر في کل قائمة : 
File (1)‏ ويحتوي الاوامر التالية كما في الشکل (2-2): 


الفصل الثاني ۰ daria‏ للغة R‏ 





| File] Edit View Misc Packac 
Source R code... 
New script 

Open script... 
Display file(s)... 
Load Workspace... 
Save Workspace... 
Load History... 
Save History... 
Change dir... 
Print... 


Save to File... 


Exit 

















شكل )2-2( قائمة File‏ 

: لكتابة عبارات برنامج فقط دون تنفيذ‎ R لفتح مكان في البرنامج‎ : New script 
_ New script نختار‎ File من قائمة‎ - 

- او نضرب المفاتيح ctrl+shift+N‏ معا 
E‏ ا gu ۳1 Untitled - R Editor n‏ تم به کن نقل تلأك العبارات الى فضاء العمل 


Edit] View Misc Packages Windows . ctrl+r بايعازي النسخ و اللصق او‎ 
Copy Ctrl+C 8 التالية‎ A الاو‎ US يحتو‎ 9, Edit (2) 


Paste ۰*۰۲ | لتغيير مواصفات‎ : GUI preferences... 
| Edic من القائمة‎ R شاشة العرض في‎ 
E GUI preferences... الشكل )3-2( نختار‎ 

يظهر مربع حوار " Rgui Configuration‏ 
1 وكما في الشكل )4-2( : 


Clear console Ctrl+L 


Data editor... 


























GUI preferences... 
Edit شكل )3-2( قائمة‎ 










































































لغة البرمبة R‏ للحوسبة الأحصائية 


` Rgui Configuration Editor 









Single or multiple @ MDI © SDI [Y] MDI toolbar [F] MDI statusbar 











Pager style (9) multiple windows Language for menus E 


© single window and messages 








Font Courier New + [Vl TrueType only size 10 «~ Style 


Console rows columns Initial left [o | top [o [| 
[V] set options(width) on resize? buffer chars lines 
۳۸ buffer console by default? تسه‎ 

Pager rows [25 | columns 


Graphics windows: initial left top [o | 












Console and Pager Colours 


a wheat2 A Sample text 
normaltet |] wheat3 

usertext wheat4 1 

pagerbg z z 





GUI preferences... >= شكل )4-2( مربع‎ 
Misc Packages (5-2) ومحتوياتها كما في الشكل‎ : View (3) 
Y Toolbar 






Statusbar 


شكل )5-2( قائمة View‏ 
Misc (4)‏ : وتحتوي على عدة اوامر كما في الشكل )6-2( 


Packages Windows Help 


Stop current computation 


Stop all computations 
Buffered output 
Word completion 
Filename completion 
List objects 

Remove all objects 


List search path 


Misc قائمة‎ (6-2) Kui 





Packages (5)‏ : وتحتوي على اوامر لاستدعاء الحزم وکما في الشكل )7-2( 














الفصل الثاني danse:‏ للغة R‏ 





Set CRAN mirror... 


Select repositories... 
Install package(s)... 
Update packages... 


Install package(s) from local zip files... 


Packages قائمة‎ (7-2) Kö 
(8-2) في الشكل‎ LS لاظهار النوافذ وترتيبها في اوامر‎ : Windows (6) 

















Tile Horizontally 
| Tile Vertically 


Arrange Icons 


Y 1R Console 
2 Untitled - R Editor 














Console Windows شكل )8-2( قائمة‎ 


Help (7)‏ : للحصول على التعليمات لبرنامج R‏ => 


FAQ on R for Windows (9-2) في شكل‎ LS وضمن اوامر عدة‎ 
Manuals fin PDF) 

R functions (text)... 

Html help 

Search help... 


search.r-project.org ... 
Apropos... 


R Project home page 
CRAN home page 


About 
Help شكل )9-2( قائمة‎ ۱ 
R سنوضح الحصول على المساعدة لاوامر او ایعازات في برنامج‎ a Y وفی بند‎ 



























































dz‏ البرحجة R‏ للحوسبة الأحصائية 


2 شريط الادوات Toolbar‏ | 

ويتكون من الايقونات المهمة والاكثر استخدام وهي : 

Open script (1)‏ & وتعني فتح الملف في برنامج R‏ 

ES Load workspace (2)‏ تحميل فضاء العمل 

Save workspace (3)‏ كا Las‏ فضاء العمل 

Be Copy (4)‏ تسخ 

Bill Paste (5)‏ لصق 

Copy and paste (6)‏ 4 نسخ ولصق 

Stop current computation (7)‏ © وقف الحساب الحالي 

Print (8)‏ & طباعة 

3.7.2 شر بط الحاله R version 3.2.0 (2015-04-16) statusbar‏ 
ويظهر اسفل الشاشة ويُكتب فيه نوع الاصدار ل ج1 والسنة 


2 الاوامر الخاصة فى لغة البرمجة R‏ 

dad Js!‏ من lal‏ البرمجة عدد من الرموز الخاصة التی la jad‏ عن اللغات 
الاخری » وتعتبر قواعد هامة يجب الالتزام باستخدامها الصحیح Lady‏ يلي اهم 
واکثر الاوامر الخاصة في لغة البرمجة R‏ : 
(1) الرمز (->) : يشار الى عملية الاسناد في لغة R‏ » وهي الطريقة الاکثر شیوعا 
مقارنة برمز المساواة = والذي يصح استخدامه ايضاً 
)2( الفارزة المنقوطة );( تستخدم Juas!‏ الاو pal‏ في السطر sl)‏ احد e‏ او یکتب الامر 
التالي في سطر جديد 
(3) العبارة التعريفية : كل شيء بعد الرمز # (هاش) الى نهاية السطر يعتبر عبارة 
تعريفية او تعليق للمستخدم ويتم تجاهله من قبل لغة R‏ . لكن الغريب أن لغة R‏ تفتقر 
إلى طريقة لجعل مقطع كامل يعامل معاملة التعليقات (كما هو حال استخدام أسلوب 
التأاطير /* ... */ في العديد من لغات البرمجة الاخری). 
)4( يمكن ان يكون الامر او العبارة في لغة R‏ على aul bac‏ 
(5) يمكن كتابة الاوامر على الدوال داخل اقواس مستديرة »على سبيل المثال : 

> (24(1000) rnorm) 


الفصل الثاني ۰ مقمة للغة R‏ 


)6( تطبع قبل النتيجة العلامة "[1 ]" وهذا R oY‏ يعتبر افتراضيا كل شيء 
بمثابة جدول vector”‏ "والرقم واحد هو مؤشر عن العنصر الاول في الجدول. 
e.X.‏ 
1:70 < 
[i] 1 2 3 4 5 6 7 Û 91011 12 13 14 15 16 17 18 19 20 21 22 23 24 25‏ 
50 49 48 47 46 45 44 43 42 41 40 39 30 37 36 35 34 33 32 31 30 29 28 27 26 ]26[ 
70 69 68 67 66 65 64 63 62 61 60 59 56 57 56 55 54 53 52 51 ]51[ 


)7( ان ناتج تنفيذ أي أمر أو دالة بلغة R‏ يظهر بعدها مباشرة» وهكذا تتكون جلسة 
العمل الاعتيادية من تنفيذ لتتالي من الاوامر والتعليمات وصولا إلى إنجاز العمل أو 
التحليل المطلوب. 
)8( يوفر R‏ آلية لإعادة تنفيذ-الأوامر السابقة وذلك باستخدام مفاتيح الأسهم على 
لوحة المفاتيح حيث يمكن أن تستخدم للتنقل إلى الامام والخلف من خلال الاوامر 
السابقة الاستخدام »كما يمكن للمؤشر ان ينتقل ضمن الاوامر باستخدام مفاتيح الاسهم 
الأفقية» والاحرف يمكن ازالتها مع مفتاح DEL‏ او اضافتها من مفاتيح اخرى . 
التي تم تنفیدها . 
alla (9)‏ الربط والتي لها البناء اللغوي التالي: e c(object],....)‏ تستخدم بشكل 
كبير لوضع قيم ذات نوع واحد في شكل متجه 
e.x: >x<-c(1,2,3,"a")‏ 
>X‏ 
(للتنفيذ او الانتقال الى سطر a‏ نضرب مفتاح الادخال Enter‏ ( 
us 7 "zn "q"‏ ]1[ 
المثال : 
X=1: 50‏ > 
MEAN (x)‏ > 
Error: could not find function "MEAN"‏ 
Mean (x)‏ > 
73.3 ]1[ 


لكن ممكن تكون الحالة صحيحة في حالة : 


لغة البرمبة R‏ للحوسبة الأحصائية 


> MEAN <- mean 
> MEAN (x) 
[1] 25.5 
al العلامة + في بداية السطر للدلالة على أن المدخل حتى الان‎ R تعطي‎ (11) 
يكتمل تعريفه »كما في المثال التالي:‎ 
> for (x ın 1:3){ 
+print(x) 
+} 
لا تستخدم في الاسماء. غالبا ما يكون من الأفضل استخدام‎ " dad (12) 
النقاط " . ".ينبغي للمرء تجنب استخدام تسطير كما الحرف الأول من اسم كائن‎ 
: .وكما في المثال التالي‎ 


9-ه . > 

> aA 

[1] 3 

> -a>=9 

Error in -a = 3 : could not find function "-<-" 

Question x 

۳۹ R انهاء‎ 2 
۱ | Save workspace image? 
u <06( ER برنامج‎ ol gh 


والذي يطلب منك ما اذا كنت ترید حفظ . 


البیانات من جلسة R‏ الخاصه بك. شکل )10-2( مربع حوار Question‏ 
اما في حالة كتابة و بدون اقواس بظهر خطأ وکما يلي : 


(we) canes] 





> q 

function (save = "default", status = Û, runLast = TRUE) 
‚Internal (quit (save, status, runLast)) 

<bytecode: 0x06%960ebc> 

<environment: namespace: base? 


الفصل الثاني : حقدهة للغة R‏ 


2 الحصول على المساعدة : 

في عدة حالات نحتاج الى توضيح لامر او ايعاز ما في برنامج R‏ وهذا ما 
نجده في الطرق التالية : 
1( في الغالب توفر ‏ مساعدة في تنسيق HTML‏ للحصول على التعليمات 
العامة والشاملة لبرنامج R‏ عن طريق تشغيل : 
>help.start()‏ لينقلني الى موقع التعليمات للبرنامج حيث يسمح متصفح الويب 
بتصفح المساعدة مع الارتباطات التشعبية ويظهر كما يلي : 


> help.start ()| 

starting httpd help server ... done 

If nothing happens, you should open 

‘http: //127.0.0.1:28255/doc/html/index. html’ yourself 


فتظهر شاشة برنامج تحليل البيانات الاحصائية R‏ ليحتوي على عدة ارتباطات 
توضح هذا البرنامج بالتفصيل وكما في الشكل (11-2) 


Statistical Data Analysis 
Manuals 
An Introduction to R The R Language Definition 
Writing R Extensions R Installation and Administration 
R Data Import/Export R Internals 
Reference 
Packages Search Engine & Keywords 


Miscellaneous Material 











About R Authors Resources 
License Frequently Asked Questions Thanks 
NEWS User Manuals Technical papers 





Material specific to the Windows port 


ee PENE 
R شكل )11-2( شاشة تحليل البيانات الاحصائية‎ 

2( للاستفسار عن ايعاز مااو أي دالة اسمها محدد نستخدم الامر : >help(...)‏ 
حيث نضع بين القوسین الایعاز او الكلمة التي نرید الاستفسار Age‏ 
help(solve) gl  e.x.help(mean)‏ 

3 او نكتب علامة الاستفهام ونذكر بعدها الايعاز او الكلمة التي نريد الاستفسار 
عنها. e.x.?mean‏ او >?solve‏ 

Gall (4‏ عن مفهوم معين Gs help.search("...")‏ یسمح بالبحث عن 
المساعدة بطرق مختلفة . 





dz‏ البرحجة R‏ للحوسبة الأحصائية 


e.x.: help.search(" data input") 

e.x.: ?? mean 
الامثلة.‎ 425 AR هو وسيلة مساعدة اخری متوفرة في لغة‎ example N) )6 
اسم الدالة المراد الحصول على أمثلة عملية‎ sa example(mean) الامر‎ (7 
سا‎ cc .نی‎ E ar عنها‎ 
ایعازات عامة مس مسج‎ 2 
oa. | تعرض الطريقة‎ : citation() تعليمة‎ (1) 
| الرسمية للإشارة إلى لغة ۸ كمرجع ضمن | ,سس سس سي‎ 
لائحة المراجع المستخدمة في أي ورقة علمية‎ 
:)12-2( كما هو موضح بالشكل‎ 
. لاستعراض اخر 25أمر‎ history الدالة‎ (2) 
الدالة ()15 لمشاهدة كل الكائنات في الجلسة‎ )3( 
citation شكل )12-2( شاشة الایعاز‎ R الجارية والمخزونة في‎ 
لمسح الشاشة المعروضة بدون مسح اي بيانات في‎ : ctrl+L الاختصار‎ (4) 
الذاكرة.‎ 
متغير او متجه او‎ y فهو لمسح × من الذاكرة » حيث ان × قد‎ > rmx) اما الدالة‎ 
مصفوفة او اطار بيانات‎ 
لمسح كل ما يوجد الان في ذاكرة العمليات الحالية من‎ > rm(list=lsO)) Wall 
بيانات تم تحميلها فيما سبق‎ 
working directory لمعرفة دليل العمل‎ : getwd() الدالة‎ (5) 
. والدالة()1156.511»5 لعرض كل الملفات في دليل العمل‎ dir) الدالة‎ (6) 

)7( يمكن تحديد عرض لخط النتانج وكما يلي: 














> options (width=40) 
> 1:50 

[1] 1 ۳4 3 4 5 6 T 3 9 10 11 12 
[13] 13 14 15 16 17 18 19 20 21 22 23 23 
[25] 25 26 27 28 2% 30 31 32 33 34 35 36 
[37] 37 38 39 40 41 42 43 44 45 46 47 48 
[25] 49 50 
> 








الفصل الثاني ۰ مقدمة للغة R‏ 


(8) قد تحتاج الى تكملة لايعاز او كلمة ما في R‏ فبعد AUS‏ حرف او اكثر نضغط 
مفتاح Tab‏ تظهر عدة اقتراحات لتكملة الكلمة ومنها نختار المطلوب لاحظ ذلك 
في المثال التالي : = 


Th mad Mahalanobis 
maintainer make.link make.names 
make.packages.html make. rqb make, socket 
make , unique makeActiveBinding makeARTMA 
makeClassRepresentation makeExtends makeGeneric 
makeMethodsList makepredicteall makePrototypeFromtlassDef 
makeRweayeLatexCodeRunner makeStandardGeneric manova 
mantelhaen.test mappl y margin.table 
mat mat.or.vec match 
match.arg match.call match. Tun 

| . . truncated] 


12.2 فضاء العمل The Workspace‏ 
فضاء العمل او مساحة العمل هي البيئة الحالية للعمل في R‏ ويشمل اي كائنات 
معرفة من قبل المستخدم » وعند نهاية العمل في بيئة R‏ يمكن حفظ صورة من فضاء 
العمل الحالي » والذي يمكن تحميله في المرة القادمة وذلك باستخدام عبارتي الحفظ 

والتحمیل المذکورة سابقً 
يتم ادخال الاوامر بشکل تفاعلي في R‏ وباستخدام مفاتیح الاسهم صعوداً y‏ وهبوطا 
یمکن التمریر بین اوامر مختلفة لاعادة استخدامها » وفیما cola‏ بعض الاوامر القياسية 
لادارة العمل الخاص بك ۰ l‏ 
طباعة دليل العمل الحالي # getwd()‏ 
كتابة الكائنات في مساحة العمل الحالية + ISO‏ 
لتغيير الدليل # setwd(mydirectory)‏ 
e.x.: setwd("'c:/docs/mydir)‏ 
2 العمل مع الاوامر السابقة الخاصة بك 
عرض اخر 25 امر # history()‏ 
عرض جميع الاوامر السابقة # history(max.show=Inf)‏ 
2 حفظ الاوامر السابقة 
savehistory(file=" myfile")‏ 
2 استرجاع الاوامر السابقة 
loadhistory(file=" myfile”)‏ 
2 حفظ فضاء العمل الى الملف save.image()‏ 


dz‏ البرمجة R‏ للحوسبة الأحصائية 


2 نهاية +1 
ستطلب حفظ فضاء العمل # )0 

2 الاوامر الاساسية في R‏ 

في dal‏ البرمجة ‏ هناك الكثير من الاوامر او الدوال او التعابير الاساسية 
المفيدة والمهمة المتاحة التي تسمح للمستخدم للتعبير عن عمليات معقدة جدا بإيجاز. 
نتطرق اليها في هذا الفصل بشكل ابتدائي للتعرف على العمل في لغة البرمجة R‏ : 
2 العمليات الحسابية 
تستخدم R‏ كالة حاسبة لتنفيذ العمليات الحسابية مثل الجمع والضرب Lady‏ يلي جدول 


میات الحسابية المتاحة في R‏ 
ما 
247.2-5*3/242"4 > 

OA A 

an 
اسا‎ 7 

ب 

,7 لمعمل لباقي من القع 

11] %/% ا القسمة الصحيحة 


< 5 + 3 > v=c(2,5,7) 
> t=c(8,4,9) 
[1] 5 > THe 
> 15.3 * 23.4 [1] 10 9 16 
[1] 358 os nap 
> sqrt(16) a 
[1] 4 [1] 16 20 63 
> wit 
[1] 0.2500000 1.2500000 0.7777778 
> Vet 
[1] 2 1 7 
> FEF St 
[1] 0 1 ۵ 
> wet 
[1] 256 625 40353607 





الفصل الثاني : حقدهة للغة R‏ 


يمكن خزن القیم في اسماء متغيرات لاعادة استخدامها في وقت Gay‏ 
product = 15.3 * 23.4 # save result‏ > 
product # show the result‏ > 
358 ]1[ 
product <- 15.3 * 23.4 # <- is assignment operator, same as =‏ > 
product‏ > 
358 ]1[ 
newproduct # -> assigns to the right‏ >- 23.4 * 15.3 > 
newproduct‏ > 
358 ]1[ 
2 الدوال الرياضية 
abs(x) -‏ والتي تعيد القيمة المطلقة 
sqrt(x) -‏ التي تحسب الجذر التربيعي او 250.5 . 
- الدوال المثلثية المختلفة sin(x) Ji‏ و cos(x)‏ وغيرهما. e.x.>x=1:5‏ 
>y=sin(x)+cos(x)‏ 
- دوال التقريب المختلفة مثل floor(2.718)‏ والتي ستعيد القيمة 2 كأكبر عدد 
صحيح أصغر من القيمة المعطاة. 
- الدالة ceiling(3.142)‏ والتي ستعيد القيمة 4 كأصغر عدد صحيح أكبر من القيمة 
- دوال التحويل مثل sill log(x)‏ تحسب اللوغاريتم الطبيعي للمقدار ‚x‏ 
_ 102106 اللوغاريتم العشري لذات المقدار X‏ 
log(x,n)-‏ والتي تحسب اللوغاريتم لأي Er‏ يحدده المبرمج من خلال المقدار on‏ 
فمثلا يمكنلك حساب اللوغاريتم ll‏ للمقدار x‏ باستخدام التعليمة log(x,2)‏ 
exp(0) -‏ > 
وفيما يلي امثلة للدوال الرياضية : 
sqrt(2)‏ > 
1]1.414214[ 
cos(pi)‏ > 
1- ]1[ 
sin(20)42+cos(20)42‏ > 


dz‏ البرمجة ‏ للحوسبة الأحصائية 


]1[ 1 

> log(1) 

[1] 0 

> log10(10) 
[1] 1 

> exp(0) 
[1] 1 


2 الدوال الاحصائية في R‏ 

الكثير من الناس تستخدم لغة البرمجة R‏ باعتبارها نطام الاحصاءات > وذلك لتنفيد 
الاسالیب الاحصانية الحديثة اضافة الى الدوال الكلاسيكية الاخری المستخدمة فى 
الاحصاء وفیما يلي بعض منها مع الامثلة: 


8 دالة ١‏ 
a=3;b=7;c=9 o pel sum‏ > 
max(x) -‏ لعيد القيمة العظمى AS‏ العمود x=sum(a,b,c) X‏ > 
min(x) -‏ تعيد القيمة الصغری ضمن العمود × a‏ 
as yA 5 5‏ 13 ]1[ 
لس و و وی hi‏ و min (x‏ > 
median(x) -‏ تعيد قيمة الوسيط (الوسيط هو القيمة التي 19 ]1[ 


> a=3¿b=7;c=9 


تقع في | نك لمنتصف عند ترتيب القيم تصاعدياء و bale‏ ما a‏ يستخدم 
sumla,b,c) ۳ ۲ 7 0‏ > 
الوسيط للدلالة على مركز المجموعة). 19 ]1[ 


var(x) -‏ تحسب مقدار التباين من العلاقة (۸-:×) ر2 )3,7,1( x=c‏ > 


> max (x) 5 1 a d ۳ 

s(x) -‏ تعید قيمة الانحراف المعياري 7 [1] 
min (x)‏ > 

[1] 1 > mean (x) 


[1] 3.666667 
> Median (x) 
[i] 3 

> Var (x) 

[1] 3.333333 
> sd (x) 

[1] 3.05505 


Range E‏ تمثل مدی البیانات 
Sort 1‏ لترتيب البيانات 


الفصل الثاني : حقدهة للغة R‏ 


> z=c(1,2,3,%-5) 

> range (x) Rank ١ 
1 1 5 Order - 
> Frank (x) 

۲ 1 [1 1 2 3 4 5 Cumsum = 
> order (x) Cumprod - 
[l] 12345 


> cumsum (x) 
[1] 1 3 6 10 15 
> Ccumprod (x) 


[1] 1 = 5 24 120 
> Sort (x) ox a 
۲11 1 2 3 4 5 الاحصاءات الموجزه‎ 2 


في الاحصاء الوصفي تستخدم 
احصاءات مو a‏ لتلخیص gano‏ عة من الملاحظات > من dal‏ ابصال اکبر قدر من 
المعلو مات ببساطة ممكنة lam yl) Se‏ الحسابي والانحراف المعیاری ومعامل 
الارتباط وغيرها . 
ide „ed summary(mpg) Au‏ الاستخدام ویختلف سلوکها وخرجها بحسب 
ملخص لتلك القیم والذي یشمل کل من المتوسط و الوسیط إضافة إلى القيمتين العظمی 
والصغری والربعین الأول والثالث (ویعرفان بشکل مشابه للوسیط إذ يشير الربع 
الأول إلى القيمة التي تقل عنها ربع قراءاتك بعد ترتیبها تصاعدیاء فيما الربع الثالث 
تصاعدیاه وهما قیمتان تساعدان في فهم كيفية توز ع بياناتك). Lady‏ يلي مثال یوضح 
ذلك 
*=Cc(1,2,3,24,23)‏ > 
Summary (Xx)‏ > 
Min. lst Qu. Median Mean 3rd Qu. Max.‏ 
5 4 3 3 2 1 


he ره‎ 





dz‏ البرمجة R‏ للحوسبة الأحصائية 


_ اسئلة الفصل الثاني _ | 


س1: ما هي لغة البرمجة R‏ وما اهمية هذه اللغة ولماذا تستخدم ؟ 
س2: اذكر عشر مواضيع من شبكة الارشيف الشامل (كرا ترجمة (CRAN‏ يمكن 
القيام بها في SR‏ 
س3: ما مميزات لغة البرمجة R‏ ؟ 
س4: كيف يتم تشغيل وانهاء برنامج IR‏ 
س5: ate‏ مكونات برنامج TR‏ 
س6: اذكر استخدامات كل من الاوامر التالية : 
GUI preferences... (2) New script (1)‏ 
س7: عدد طرق الحصول على المساعدة في برنامج R‏ ؟ 
س8: اذكر اسم الدالة لكل مما يلي : 
1( لعرض الطريقة الرسمية للاشارة الى لغة R‏ كمرجع ضمن لائحة المراجع 
2) لاستعراض اخر 15 امر؟ 
3( لمشاهدة كل الكائنات في الجلسة الجارية والمخزونة في ER‏ 
4) لمسح الشاشة المعروضة يدون مسح اي بیانات فى الذاکرة؟ 
5( لمسح × من الذاكرة » حيث ان × قد تکون متغير او متجه او مصفوفة او اطار 
بیانات 
6( لمسح کل العملیات الحالية من الذاكرة 
7( لمعرفه دلیل العمل working directory‏ 
8( لعرض کل الملفات في دلیل العمل . 
9( لتحدید عرض خط النتانج 
س9: وضح استخدام كل من الرموز التالية » مع ذكر مثال ؟ 
DE‏ 
اول اسم كائن_ (8) | . (7) 


(10)* TAD 0 (12)%% 








الفصل الثاني : حقدهة للغة R‏ 


س10: اذکر خطوات تنفیذ کل مما یلي: 

1) تغییر مواصفات شاشه العرض في R‏ 

2( فتح مکان في البرنامج R‏ لكتابة عبارات برنامج فقط دون تنفيد 
3( تكملة ایعاز او كلمة ما في R‏ 

وراک مد وهر كل پاش : 





س12: وضح استخدام الاوامر التالية في R‏ »مع ذکر مثال ؟ 


س13: ما ناتج کل مما يلي : 


3)>a=c(x,y,z); mean(a);sd(a); 
median(a);var(a);range(a);sort(a) 

7)>cos(pi) |8)>logl0(10) | 9)> x=2;y=6;z=8;sum(x,y,Z); 
min(x,y,Z);max(x,y,Z) 


> 








الفصل الثالث 
المتغيرات والثوابت 


3 مقدمة 

3 الكائن 

3 المتغيرات في +1 

3 الثوابت في +1 

3 ثوابت اخرى 

3 عمليات المقارنة 

3 العملیات المنطقية 

3 اسبقية التشغيل 
اسئلة الفصل الثالث 





الفصل الثالش : المتغيرات والثوابيت 


3 مقدمة 
في كل جهاز كمبيوتر توفر متغيرات اللغة وسيلة للوصول إلى البيانات 
المخزنة في الذاكرة. 
متلا" نفترض أننا نود تخزين نتيجة الحساب 1.0025730 لاستخدامها في 
المستقبل ويكون ذلك بحجز مكان في الذاكرة تحت اسم معين وليكن a‏ لیکتب 
بالصيغة: >a<-1.0025130‏ او يستخدم علامة المساواة وتكون بالصيغة : 
>a=1.0025430‏ 


3 الكائن Object‏ 
8 لا يوفر الوصول المباشر إلى ذاكرة الكمبيوتر بل يوفر عددا من هياكل 
البيانات المتخصصة وسنشير اليها بالكائنات او الاشياء. ويشار إليها من خلال 
رموز أو متغيرات وهذا يختلف عن الكثير من اللغات ألاخرى . 
وقد تطرقنا فى الفصل السابق Aa‏ دالة الربط والتي لها البناء اللغوي التالي: 
c(objectl,....)‏ » تستخدم بشکل کبیر لوضع ad‏ ذات نوع واحد في Ki‏ متجه 
>x<-c(1,2,3,"a")‏ 
>x‏ 
للتنفيذ او الانتقال الى سطر جديد نضرب مفتاح الادخال Enter)‏ ) 
lg"‏ "3" "2" 1" ]1[ 
ولما كان الكائن يخزن معلومات كما في المثال اعلاه وهو c(1,2,3,"a")‏ « 
لذلك غالبا ما نحتاج الى تسميته بحيث نستطيع الاشارة اليه لاحقا e‏ وهذا ما يسمى 
بالمعرف والذي يتم اختياره حسب شروط معينة وهي كما يلي: 
1. يمكن ان تكون المعرفات مزيجا من الحروف والأرقام وكذلك النقطة (.) و (_). 
ويفضل ان يكون واصف لطبيعة الكائن. 
2 ان لا يبدأ بعدد او نقطة 
3. الحروف والكلمات المحجوزة ۸ Y‏ يمكن أن تستخدم معرفات وهي كما يلي : 
T,I,F,D,C,q,c‏ 


dz‏ البرحجة R‏ للحوسبة الأحصائية 


NULL, Inf, NaN, NA, NA integer, NA_real, NA complex, N 
A character. 





ومن الامثلة على المعرفات الصالحة في R‏ هي : 
total, Sum, .fine.with.dot, this_is_acceptable, Number5‏ 

والامثلة على المعرفات غير الصالحة في AR‏ : 
tot@1l, Sum, fine, TRUE, 6‏ 


3 المتغيرات في R‏ 
هي البيانات التي تتغير قيمتها Gua‏ الحاجة › وتستخدم المتغيرات لتخزين 
البيانات وتکون اسمانها فریدة sali)‏ ال او الاشیاء) »ويتكون اسم المتغير من 
الحروف والارقام والنقطة وان لا يبدأ برقم ولها الانواع التالية: 
]- عددية numeric‏ 
2- عددية معقدة complex‏ 
3- نصية character‏ 
4- منطقية logical‏ 
5- خاصه special‏ 
ويعتبر R‏ بشکل افتراضي كل الاعداد الذي نقوم بادخالها ثنائية double‏ » =„ 
نقوم نحن بتحديد ما إذا كنا نريدها صحيحة 
ولإنشاء متغير مثلاً له قيمة معينة يُخزن في الذاكرة »حيث ¿Say‏ استدعائه عند 
الحاجة يكون بالشكل التالي : 2- < )5 >y<-7‏ ( المساواة لها نفس المعنى 


)>- للرمز‎ 
< >- 1 
> 0 <- 2.3 
>c <- "Hellow, world" 
R سنج في‎ 4.3 


PRATER RITTER 


الفصل الغالنه : المتغیرانه والثوابيت 


1- الثوابت الرقمية : وتشمل کل الارقام » ویمکن ان تکون من نوع عدد صحیح 
او معقد » والدالة typeof)‏ لمعرفة نوع الثابت ويعتبر الثايت الرقمي الذي يليه 
الحرف L‏ عدد صحيح ومعقد تلك الذي يليه الحرف 1 
امثلة : typeof(5)‏ > 
"double"‏ ]1[ 
typeof(SL)‏ > 
"integer"‏ ]1[ 
typeof(51)‏ > 
"complex"‏ ]1[ 
2- الثوابت النصية : وتتمثل بتحديدها باستخدام علامات الاقتباس المفردة )'( أو 
علامات اقتباس مزدوجة (") . 
امثلة : 'example'‏ > 
"example"‏ ]1[ 
typeof("5")‏ > 
"character"‏ ]1[ 
الدالة mode‏ هي نمط او صيغة وتبين نوع الشيء كما في الامثلة التالية ٠‏ 
E=1‏ > 
a="ali*®‏ > 
c=TRUE‏ > 
b=2i‏ > 
mode (x)‏ > 
“numeric”‏ ]1[ 
mode (a)‏ > 
"character"‏ ]1[ 
mode (c)‏ > 
"logical"‏ ]1[ 
mode (b)‏ > 
"complex"‏ ]1[ 


3 ثوابت اخرى 
R‏ لديها عدد قليل من الثوابت المضمنة » حيث تتوفر الثوابت التالية : 
LETTERS (1)‏ : وهي !264 حرف الانكليزي الكبيرة اي العلوية في مفاتيح 
لوحة المفاتيح » وكما في المثال : 
LETTERS‏ > 


dz‏ البرمجة R‏ للحوسبة الأحصائية 


[1] "A" "B" k Qi "D" "E" "F" "G" "H" "I" ۳ "K" "L" "M" "N" 
"o" "p" "Q" "pR" "QM 
[20] تن‎ ki "u" nay "W" DO "Y" ا‎ 

: وهي ال26 حرف الانكليزي الصغيرة وكما في المثال‎ : letters (2) 
> letters 
[1] ta" "pb" "e" "d" "e" a de "g" "h" e ny" i "J" "m" "n" "o" 


!ابا ااممراا ہے nm, tt‏ 


P q 1 5 
[20] "1" "u" "v" "w" "x" "y" "z" 
وهي اسماء اشهر السنة بالانكليزي » وكما في المثال:‎ : month.name (3) 
> 6 
[1] "January" "February" " March" "April" "May" 
"June" 
[7] "July" "August" "September" "October" "November" 
"December" 
في‎ US y > اختصارات ثلاثة احرف لاسماء الاشهر الانكليزية‎ : month.abb (4) 
المثال:‎ 
> month.abb 
[1] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" 
"Oct" "Nov" "Dec" 
يمكن الرجوع الى‎ Regular Expressions 464) للتعرف على التعابير‎ (5) 
?regexp ع بکتابه الايعاز‎ gua gall صفحة المساعدة الرئيسية حول هذا‎ 
> month.name[ grep("A”, month.name)| 
[1] "April" "August" 
نسبة محيط الدائرة الى قطرها اي النسبة الثابتة »كما في المثال‎ : Pj (6) 
> pl 
[1] 3.141593 
> pi <- 56 : في المثال‎ LS y في هذه الحالة تمثل قيمة عددية مفروضة‎ pi 
> pl 
[1] 56 


الفصل alll‏ ۰ المتغيرات والثوابته 


Comparison Operations عمليات المقارنة‎ 3 





> | اقلمن O‏ 
CASI >‏ 
| < | من او يساوي __ 
| الايساوي Oo‏ 
امثلة . Sk)‏ 

< ۷ >- 6 

> x<y 

[1] TRUE 

> x>y 

[1] FALSE 

FK =) 

[1] TRUE 

> y>=20 

[1] FALSE 

> y == 16 

[1] TRUE 

>=) 

[1] FALSE 


> m<-1:5; m==4 
[1] FALSE FALSE FALSE TRUE FALSE 


dz‏ البرحجة R‏ للحوسبة الأحصائية 


> Fo (2 F as T) 
> t=c(9,4,35) 


+ Ft 

[1] FALSE TRUE FALSE 
> Fit 

[1] TRUE FALSE TRUE 
> YVL 

[1] FALSE FALSE FALSE 
+ Fost 

[1] FALSE TRUE FALSE 
+ FST 

[1] TRUE FALSE TEUE 
>= ۷ 


[1] TRUE TRUE TRUE 
۱ 


Logical Operations العملیات المنطقية‎ 3 
> x <- c(TRUE,FALSE,0O,6) 
> y <- c(FALSE, PRUE,FALSE, TRUE) 


> !x 

[1] FALSE TRUE TRUE FALSE 
> ۷ 

[1] FALSE FALSE FALSE TRUE 

> ۷ 


FALSE AA 
> xly او للعنصر الاول‎ | || 
[1] TRUE TRUE FALSE TRUE 
> ۷ 

[1] TRUE 





mn 


> s=c("male","Female","Female","male","male" ) 
> s[c(FALSE, TRUE, TRUE,FALSE,FALSE)] 
[1] "Female" "Female" 


الفصل lll‏ : المتغيرات والثوابيت 


3 اسبقیه التشغیل 

ان تنفيذ العملیات الحسابية او الدوال في التعبیر الواحد» يتم حسب تسلسل العملية 
التي ستجری. وتحدد الاسبقية في ترتیب التنفیذ من قبل لغة ۸ » وفي a‏ وجود 
تعبیران او اکثر بنفس الاسبقية فیتم حساب التعبیر بين الاقواس اولاً ان وجدت 
وبعدها نأخذ بنظر الاعتبار الترتیب في التنفیذ مثلاً من جهة الیسار الى يمين التعبیر 
والجدول التالي یوضح اولویات التنفیذ للعملیات: 





6.7.: < 7 5 

[1] 5 

>3/(4/5) 

[1] 3.75 

في المثال الاول» يكون الناتج حسب اسبقية التنفيذ من اليسار الى اليمين لنفس عملية 
القسمة اما في المثال الثاني فالناتج يختلف بسبب تنفيذ ناتج الاقواس اولا. 


he ره‎ 


dz‏ البرحجة R‏ للحوسبة الأحصائية 


اسئلة الفصل الثالث 





: س1 : ماذا يطبع كل مما يلي‎ 
1) >x<-c(1,2,3,"a") ; >X 
2) > typeof(5) 
3) > typeof(SL) 
4) > typeof(51) 
5) >hellow' 
6) > typeot("7.4”) 
7) a=TRUE;x=1 ;mode(a);mode(x) 
8)> b=c(TRUE,FALSE,5) ; b ; mode(b) 
9) >x<-c(2, TRUE, "hello") ;x ; mode(x) 
10) >letters 
11) >LETTERS 
12) > month.name 
13) > month.abb 
14( < 1م‎ 
15) >x<-2 ;y<-6;x<y;x>y;x!=5 
16) >m<-1:5; m==4 
17) >x=4:9 ; x+c(1,2) 
18) >s=c("aa","bb","cc","dd") 
>s[c(FALSE, TRUE,FALSE,TRUE)] 
19) > x <- c(TRUE,FALSE,0,6) 
> y <- C(FALSE,TRUE,FALSE,TRUE) 
> Ix ; X&Y ; x&d&y ; xly ; xlly ; 
20) > s=c("male", "Female", "Female", "male", " male”) 
> s[c(FALSE, TRUE, TRUE,FALSE,FALSE)] 
21) >12/(6/2) 


الفصل الغالنه : المتغيرات والثوابيت 


س2: ما هي شروط اختيار المعرف ؟ 
س 3: ما المتغيرات فى 8 ؟ اذكر انواعها ؟ 
س4: حدد نوع كل من المتغيرات التالية : 
>n<-20‏ 
>m<-7.9‏ 
>k<-" ALI"‏ 
س5: ما الثوابت في ۸ ؟ عددها مع التوضیح ؟ 
س6: في لغة البرمجة R‏ » اكمل ما يلي: 
1) انواع المتغیر ات هي.......................................... 


(1) © (5) 1 )9( ! 


)2( " "او‎ (6) L (10) && 
(3) > (7) >= (11) & 
(4) < (8) =! (12) | 
(13) <= (14) == (15) || 


س8: وضح استخدام الاوامر typeof‏ و mode‏ في R‏ »مع ذكر مثال ؟ 
س9: ما اولويات تنفيذ العمليات التالية في لغة :R‏ 


Il, $24‏ اکن |" , رک اور l= 2 D‏ ,== رحج =< ,> ,< 





الفصل الرابع 
البيانات في +1 


4 مقدمة 

Vectors المتجهات‎ 4 

Lists القوائم‎ 4 

Matrices and Arrays المصفوفات والمجموعات‎ 4 

Tables الجداول‎ 4 

Factor العوامل‎ 4 

4 دول للحصول على معلومات عن مجموعة البیانات 
اسئلة الفصل الر ابع 





الفسل الرابع : البيانات في R‏ 


4 مقدمة 
خاصة بتلك اللغة وفيما يلي كائنات البيانات الموجودة في R‏ والصيغ التي تتعامل 
فيها . 


4 المتجهات Vectors‏ ۱ 
المتجهات هی بنیه البیانات الاساسیه فى 1. حيث یمکن انشاء متغیرات اكثر 
تعقيدأ وبشکل جدول بصف واحد باستعمال الدالة c‏ والمتجهات تحتوي على عناصر 

a2) 
ai 
a<- c(1,2,5,3,6,-2,4) # متجه رقمي‎ 
b<- c("one","two","three") # متجه حرفي‎ 
c<-c(TRUE, TRUE,FALSE,TRUE,FALSE) # متجه منطقي‎ 
لمعرفة نوع المتجه‎ :typeof() الدالة‎ 
لمعرفة عدد العناصر في المتجه.‎ length() الدالة‎ 


الدالة (00 : تستخدم لوضع الاشياء la‏ في المتجه 
امثلة ۰ 
العنصر الثاني والرابع في المتجه # >a[c(2,4)]‏ 
3 2 ]1[ 
c(0, 7,6)‏ > 
111078[ 
x <- c(7.2, 3, 9)‏ > 
>X‏ 


[1] 7.2 3.0 9.0 

الرمز لانشاء تسلسل تصاعدي او تنازلي للقيم في مثال كما يلي : 
numbers5to20 <- 5:20‏ > 
numbers5to20‏ > 


لغة البرمجة ‏ للحوسبة الأحصائية 


0 19 16 17 16 15 14 13 12 11 10 9 5 7 6 1[5] 
ممکن ربط المتجهات معا : 
y=c(0,7,8)‏ > 
c(numbers5to20, y)‏ > 
8 7 0 20 19 16 17 16 15 14 13 12 11567891011[ 
ولیکن : 
some.numbers <- c(2, 3, 5,7, 11, 13, 17,19, 23, 29, 31, 37, 41,‏ > 
)119 ,113 ,109 ,107 ,103 ,97 ,89 ,83 ,79 ,73 ,71 ,67 ,59 ,47 ,43 + 
يمكن الحاق المتجه numbersSto20"‏ " في نهاية المتجه "some numbers"‏ ثم 
الحاق تسلسل التناقص من 4 الى 1 وكما يلي : 
a.mess <- c(some.numbers, numbersSto20, 4:1)‏ > 
a.mess‏ > 
59 47 43 41 37 31 29 23 19 17 13 11 112357[ 
1195678 113 109 107 103 97 89 83 79 73 71 67 ]17[ 
21 3 204 19 18 17 16 15 14 13 12 11 10 3319[ 
لاستخراج فقط عنصر معين نكتب بالصيغة التالية: 
a.mess[22]‏ > 
89 ]1[ 
يمكن استخراج اكثر من عنصر واحد في وقت واحد: 
some.numbers[c(3, 6, 7)]‏ > 
7 13 5 ]1[ 
للحصول على العناصر من 3 الی7: 
7 << 
117891011[ 
لاختيار العناصر جمیعا ما عدا العنصر lll‏ كما في المتجه ul‏ : 
x <- c(0, 7, 8)‏ > 
x[-2]‏ > 
08 ]1[ 
تجنب اختيار الارقام من 3 الى 11 كما في المتجه التالي : 
some.numbers[-(3:11)]‏ > 


الفصل الرابع : البيانات في R‏ 


7 103 97 89 83 79 73 71 67 59 47 43 41 37 3 2 ]1[ 
119 113 109 ]17[ 
diff) Gal‏ لمعرفة الفرق بين العناصر : 
e.X.:‏ 
x <- c(1, 4, 6, 9, 23)‏ 
diff(x)‏ 
1132314[ 
setdiff HAN‏ : لمعرفة الفرق بين عناصر متجهين : 
e.X.:‏ 
x <- c(1, 4, 6, 9, 23)‏ 
y <- 0012, 4, 6, 78, 44)‏ 
setdiff(x,y)‏ 
923 1 ]1[ 
)1( العمليات الحسابية على المتجهات Vector arithmetic‏ 
يمكن ان تتم العمليات الحسابية على المتجهات ¿de y‏ سبيل المثال ضرب جميع 
عناصر المتجه ‏ في 3 : 
SxS‏ 
24 21 0 ]1[ 
x <- c(0, 7,6)‏ > 
>y<-x-5‏ 
>y‏ 
523- ]1[ 
>x3‏ 
512 343 0 ]1[ 


۱ xl _,X X3 X; 
for i=1, 2, 3, i.e. Yı ول و ولا و‎ : Yi يمكن حساب‎ 


> YX 
[1] 1 128 6561 


لغة البرمجة R‏ للحوسبة الأحصائية 


- اعادة التدوير Recycling rule‏ 
پستخدم تدوير او تكرار المتجه الاصغر في حالة جمع متجهين لهما طول 
ahs‏ 


e.X.: ۱ 
> ş=c (1,2) 


> l=ci0,0,0,0,0,0) 
> 1+5 
[1] 1 2 1 212 
: عمليات اخرى على المتجهات‎ (2) 
> rep(4,7) # تكرار القيمة 4 7 مرات‎ 
]1[ 4 4 4 4 4 4 4 
> rep(c(1, 4), c(3, 2(( # تكرار 1 ثلاث مرات و4 مرتين‎ 
]1[ 1 1 1 4 4 
> rep(c(1, 4), each=3) # تكرار كل قيمة 3 مرات‎ 
]1[ 1 1 1 4 4 4 
> rep(seq(2, 20, 2), rep(2, 10)) # تكرار كل قيمة مرتين‎ 
]1[ 2 2 4 4 6 6 5 5 10 10 12 12 14 14 16 16 18 18 20 20 
> rep(seq(from=2,to=7,by=2),time=3) 
]1[ 246 2 4 6 2 4 6 
القيم المفقودة وقيم خاصة اخرى‎ )3( 
Missing values and other special values 
»وهي كثيرا ما تنشأ في مسائل‎ (Not Available)NA رمز القيمة المفقودة هو‎ 
. البيانات الحقيقية او تنشأ بسبب الطريقة التي يتم بها تنفيذ العمليات الحسابية‎ 
> some.evens <- NULL# palic متجه بدون‎ Liy 
> some.evens[seg(2, 20, 2)] <- seg(2, 20, 2) 
> some.evens 
[1] NA 2 NA 4 ۸ 6 ۸ 8 NA 10 NA 12 NA 14 NA 16 NA 18 
NA 20 
لعناصر 42 ...20 لكن لم يُعين أي شيء للعناصر‎ ad هو تعيين‎ La ما حدث‎ 
للاشارة الى القيم الغير معروفة.‎ NA پستخدم‎ Reus 19۰ 321 


الفسل الرابع : البيانات في R‏ 


>a=c(1,2,3,NA,6) : لیکن‎ 

>mean(a) 

1 ۱ 

ولحذف القيم المفقودة يكون التعبير بالشكل : >mean(a,na.rm=TRUE)‏ 

113 remove تعني‎ 10 Cus 

ليكن x‏ متجه يحتوي على القيم )0,7,8( a‏ ان : 

> 7 ۷ 

[1] NaN 1 1 | 

تستخدم الرمز NAN‏ عندما تكون العملية الحسابية Y‏ معنى لها » وفي حالات 
al‏ نظيو القیم الخاضية إن فد تسیل علی y‏ اله کد gh‏ تخیر : 

> 

[1] Inf 0.1428571 0.1250000 


)4( المتجهات الحرفية Character vectors‏ 
يمكن ان تحتوي المتجهات GLAS‏ او قيم حرفية c‏ عند ادخال هذه القيم » يجب 
ان تكون مزدوج (double)‏ او مفرد (single)‏ 
مزدوج double‏ : ينشأ متجهات مزدوجة الدقة من طول محدد . عناصر المتجه كلها 
تساوي صفر » وهي مطابقة للارقام . 
x = c("Bob","Carol","Ted"," Alice")‏ > 
X‏ > 
"Bob" "Carol" "Ted" "Alice"‏ ]1[ 
يمكن كتابة متجهين في متجه واحد : 
y =c("John","Joy","Fred"," Frances")‏ > 
C(x, y)‏ < 7 > 
>Z‏ 
"Bob" "Carol" "Ted" "Alice" "John" "Joy"‏ ]1[ 
"Fred" "Frances"‏ ]7[ 
"y")‏ ,)0 < 7 < 
>Z‏ 
طباعة موضوع Joy #joy‏ > 


لغة البرمجة ‏ للحوسية الأحصائية 


Lbs‏ :الكائن "joy"‏ لم يتم العثور عليه 


# aL "Joy". 


,طباعه ثاني 408 في متجه " joy‏ 


انشاء كائن جديد اسمه " H" joy‏ 


named vector تسمية المتجه‎ (5) 


فيما يلي بيانات عن الجزر : 


Australia 
2965 
Borneo 

280 

Cuba 

43 
Greenland 
840 

Honshu 

89 

Kyushu 

14 
Mindanao 

36 

New Zealand (N) 
44 

Novaya Zemlya 
32 
southampton 
16 

Tasmania 

26 
Victoria 

52 


هذا يسمى تسمية متجه »هنا هو كيفية انشاء و احد. 


Asia 

16988 
Banks 

23 

Celon 

25 

Europe 
3745 
Hokkaido 
30 

Java. 

49 
Melville 
16 

New Guinea 
306 

North America 
3390 

South America 
6795 
Taiwan 

14 
Vancouver 
12 


Antarctica 
5500 
Baffin 

184 
Celebes 

T3 
Ellesmere 
82 
Hispaniola 
30 

Ireland 

23 
Madagascar 
227 

New Britain 
15 
Newfoundland 
43 
Sakhalin 
29 

Sumatra 
163 

Timor 

13 


> "Joy" 
[1] "Joy" 
> 2 
[1] "Joy" 
> Joy = 6 
> Joy 

[1] 6 


> islands 
> islands 
Africa 
11506 
Axel Heiberg 
16 
Britain 
B4 
Devon 
21 
Hainan 
13 
Iceland 
40 
Luzon 
42 
Moluccas 
29 
New Zealand (5) 
58 
Prince of Wales 
13 
Spitsbergen 
LS 
Tierra del Fuego 
19 
| 


> x = c("Robert Culp","Natalie Wood","Elliott Gould","Dyan 


# تتم تسمية القيم حتى الان‎ al, 


Cannon") 
> X 


الفصل الرابع : البيانات في R‏ 


[1] "Robert Culp" "Natalie Wood" "Elliott Gould" "Dyan 


Cannon" 
> names(x) = c("Bob","Carol","Ted"," Alice") 
> X 
Bob Carol Ted Alice 
"Robert Culp" "Natalie Wood" "Elliott Gould" "Dyan 

Cannon" 
> x[Alice] # وهذا غير صحيح! لما لا ؟‎ 
Error: object "Alice" not found 
> x["Alice"] 

Alice 
"Dyan Cannon" 
> Alice = 4 
> x[Alice] # x[4] US نفس الشيء‎ 

Alice 


"Dyan Cannon" 
اليابسة في الاف الاميال المربعة‎ AUS في "الجزر" المتجه : قيم البيانات هي حجم‎ 
> Islands| "Cuba" ] 
Cuba 
43 
sort() -الدالة‎ 
> E=C ) 2 , 5, 1, 3, 4, 78,67,90) 
> Sort (X) 
[1] 1 2 4 6 9 67 TS 90 
> SOFT (c{(5,0,;,7;1,3}) 
[1] 0 1 3 5 7 
لسرد الكائنات في مساحة العمل‎ : objects() -الدالة‎ 


لغة البرمبة ‏ للحوسية الأحصائية 


Lists القوائم‎ 4 
: القائمة هي متجه عناصره مختلفة النوع » كما في المثال التالي‎ 
> #=1:10 f a vector 
> تا نا‎ ۳12 (1:12, ۲1۳ 01۸-۵ [ f a matrix 
> Z="B111"” # a character variable 
> my. 1151-13 51 (£, Y, Z) # creat the list 
> my.list view the list 
[[1]] 
[1] 1 2 3 4 5 6 7 8 9 0 
[[2]] 
م]‎ 11 [r2] [-4] [+4] 
[1,] 1 4 T 10 
[2,] a 5 a 11 
[3, ] 3 6 g 12 
[[3] [ 
[1] "Bill" 
> my.list[[3]] # my.list العنصر الثالث في‎ . 
[1] "Bill" 


- لتسمية العناصر في القائمة 


الفصل الرابع : البيانات في R‏ 


> hames(my.list) = ب" اع‎ ۰ vector”, "my.matri£", "my . name” | 
> my list 
Error: unexpected symbol in "my list" 
> my.list 
smy . vector 
[i] 1 2 3 4 506 7 6 310 


SY .matrix 

[r1] [,-2] [,31 [,4] 
۱ 1 ] 1 4 1 10 
[2,] 2 5 8 11 
13, | 3 6 g 12 
smy ۰ name 


[1] "Bill" 


RS‏ » یتم استخدام 8 لقائمة الفهرسة. وهذا يعني 4d‏ پسمح لك لسحب العناصر من 
اکتب اولاً اسم القائمةء تليها $¿ يليه اسم العنصر في القائمة. 

e.X.: 

> my.lists}my.name 

[1] "Bill" 


> 15)( 
[1] "my.list" Ny" "y" ار‎ 


4 المصفوفات والمجموعات Matrices and Arrays‏ 
المجموعة مثل المصفوفة إلا انه يمكن أن يكون أكثر من بعدين. وبعبارة 
أخرى» المصفوفة ثنائية الأبعاد » وان جميع الاعمدة في المصفوفة يجب ان تكون 
بنفس النوع (رقمي »او حرفي  Sy (all‏ بنفس الطول » والشکل العام للمصفوفة 

هو . 


لغة البومجة R‏ للحوسية الأحصائية 


mymatrix -> matrix( vector , nrow= ۲ , ncol= © , byrow= 

FALSE) 

يشير byrow= TRUE‏ الى ملئ الصفوف ولا اما byrow=FALSE‏ فان 
المصفوفة تملا من قبل الاعمدة (الافتراضي). 





مثال : 
nrow=5,ncol=4)‏ ,20 : 1 ) 2132 ]۳11۳ > 
Y‏ > 
41 م] ]3,[ ]2[ ]1-[ 
16 11 5 1 ],1[ 
17 12 7 2 ] 2] 
8 13 8 3 [ ,3[ 
G 14 19‏ 4 [ ,4[ 
20 15 10 5 [ , 2] 
(1) انشاء وتسمية المصفوفة : 


لإنشاء مصفوفة في R‏ پستخدم الامر matrix‏ » وغالباً ما تحتوي على añ‏ 
عددية » كما يمكن تحديد sac‏ الاعمدة باستخدام المعامل nrow‏ و عدد us‏ 
طريق المعامل 2001 » في المثال التالي مصفوفة بثلاثة اعمدة وسطرين : 
m=matrix(c(2,7,9,5,6,9) ,nrow=2,ncol=3)‏ > 
m‏ > 
]3,[ ]2,[ ]1,[ 
6 9 2 [ م1 ] 
9 5 7 ],2[ 


وبتحدید رقم الصف والعمود لمعرفة قيمة اي عنصر في ]2 1 > 
المصفوفة لاحظ المثال التالي : و )11 


)3( كتابة اسماء الاعمدة او الصفوف 
المصفوفة ثرتب اولا الاعمدة »رغم وجود خيار اخر من شأنه تغيير هذا السلوك 
يكتب لكل مصفوفة اسماء للاعمدة والصفوف كما يلى: 
العنوان [,1] يعني الصف الاول لكل الاعمدة l‏ 
جميع القيم في الصف الاول # y[1,]‏ > 


الفصل الرابع : البيانات في R‏ 


6 11 6 1 [1] 
جميع القيم في العمود الثالث # y[,3]‏ > 
5 14 13 12 11 [1] 
جميع قيم المصفوفة ماعدا الصف الاول # >y[-1,]‏ 
]4,[ ات م] ]2,[ lel]‏ 


17 12 7 2 ],1[ 
18 13 8 3 [ م ل ] 
19 14 = 4 [ م3 ] 
20 15 10 5 [ م 4 ] 


>y[2:4,1:3] # 122:3 الصفوف 24344 للاعمدة‎ 
[1] [+2] [r3] 


12 7 2 ] م1 
13 8 3 ]2 
14 و 4 ] ,3 
A‏ ایشا ¿AT CEG Je al of sted‏ 


المثال التالي : 
مثال : لدينا قيم تعبير ثلاث جينات في ثلاث تجارب ونريد وضعها في مصفوفة . 
ولجعل المصفوفة سهلة القراءة يمكننا استعمال الدالة rownames‏ لتسمية السطور 
والدالة colnames‏ لتسمية الاعمدة » ويستعمل التعبير byrow=TRUE‏ ليتم كتابة 
صفوف المصفوفة اولاً وليس الطريقة الشائعة في AUS‏ الاعمدة Y y)‏ كما في الامثلة 
اعلاه 
gl<- c(10,3,8)‏ > 
g2<- c(5,2,7)‏ > 
g3<- c(3,10,1)‏ > 
نخزن في مصفوفة وتمثل الصفوف# 
exp<- matrix(c(gl,g2,g3),nrow=3,ncol=3,byrow=TRUÜE)‏ > 


> exp 

[r1] [-2] [-3]‏ 
8 3 10 [ م 1 ۲ 
7 2 5 [ م 2 ] 
1 10 3 3,1[ 


لغة البرمجة ‏ للحوسية الأحصائية 


(4) تسمية الصفوف والاعمدة 


byrow=TRUE, 


"82" 
"ca" 


cnames) ) 


cells <- c(1,26,24, 68) 


rnames <- c("R1", 
cnames <- 2ه‎ 


dimnames=list (rnames, 


> 
> 
> 
> mymatrix <- matrix(cells, nrow=2, ncol=2*, 
مس‎ 
> 


<- c{"genel", "gene2", "gene3") 
<-c("experimenti", "experimenti", "experimenti" ( 


> mymatrix 
Ci C2 

Ri 1 26 

R2 24 66 


> rownames (exp) 
> colnames (exp) 


> exp 


experimenti experimenti experimenti 


3 


10 


1 


)5( ابعاد المصفوفة : 


5 
7 
7 


10 


3 
8 


المجاور: 


طرح ,neol=3)‏ نح ,nrow‏ الا ,5 رد متا ;4 , 2 ات ) 11۳۳10۳۴17۳135 > 
n=matrix(c(1,5,3,7,0,9 ,nrow=2,ncol>=3) l‏ > 


-l‏ جمع او 
المصفوفات . ۰ N‏ 
مصفوفتین یکتب الایعاز : 
mtn‏ > وکما في المتال 
التالى : 


+. 


ولطرح المصفوفات يكتب الایعاز mon‏ > وكما في 


المثال اعلاه 
2 ضرب المصفوفات ٠:‏ 


genel 
gene} 
genes 


> dim (m) 
[1] 2 3 


= mn 
[r1] [-2] [,3] 
[1,] 2 6 5 
[2, [ 4 3 0 
[-11 [-2] [,3] 
[1,] 1 3 0 
[2,1] 5 7 9 
> m+n 
[-1] [-2] [,3] 
[1,] 3 3 5 
] 2 م‎ [ 9 10 9 
> m-n 
[-1] [2م]‎ [,3] 
[1,] 1 3 5 
۲2:1 LL يت‎ 3 


الفصل الرابع : البيانات في R‏ 


|( ضرب عنصر بعنصر : 
mat*mat‏ > 
fel] [,2]‏ 
169 100 [ م 1 ۲ 
196 121 ],2[ 
225 144 ],3[ 


> mat%*%t (mat) 
] م‎ 11 [,2] [,3] 
[1,] 269 292 5 
[2,] 292 317 2 
[3,] 315 342 369 
۱ 
۰ 43 فئة المصفو‎ ( 6) 


ua کتوصیف ڪن نوع ل وهي توضح‎ class bean re 
وفي حالة المصفوفة تكون الفئة‎ e الشاشة بطريقة خاصة و هكذا لبقية انواع البيانات‎ 
ونلاحظ استخدام بيانات حقيقية في مجمو عة وهي ببساطة وضع البيانات‎ matrix 
: في متجهات وفي مثالنا التالي البيانات من 16 :1 وكما موضح ادناه‎ 
> y = matrix(1:16, nrow=4) # مصفوفة من 4 صفوف‎ 
> class(y) H هو كائن من فئة "مصفوفه"‎ y 
[1] "matrix" 
> y 
[,1] 2] L3] L4] 
[1] 1 5 9 13 
[2] 2 6 10 14 
[3] 3 7 11 15 
[4] 4 8 12 16 


y [3,2]‏ > 
7 ]1[ 
دائما وصع مؤشر الصف AY‏ مؤشر العمود. ودائما وصع فهارس Jato‏ 
أقواس مستطيلة. 
(7) مدور المصفوفة : 


لغة البرمجة ‏ للحوسية الأحصائية 


هو المصفوفة الناتجة عن das‏ الاعمدة بالاسطر للمصفوفة Amo‏ 
Ånxm a!‏ ويرمز لها بالرمز هم 


> mat<-matrixz (10:15, nrow=3,ncol=2) 
> mat 
[-1] [,2] 
] 1 م‎ [ 10 13 
] 2 ] 11 14 
[3r ] 12 15 
> t (mat) 
[1] [-#] [-4] 
]1 م‎ ] 10 11 12 
[2,] 13 14 15 


وفي مثال اخر : 


> 8-1 : لم2‎ 
> dim(a)=c (4,5) 
> Aa 

[د م] L3] L4]‏ 21,[ ]1-[ 
17 13 3 5 1 [ م 1 ] 
18 14 10 6 2 ],2[ 
19 15 11 7 3 [ م2 ] 
20 16 12 8 4 ]36[ 


)8( المصفوفة الاحادية : 
)3( 11-0120 > 
m‏ > 
]1,[ 
1 ],1[ 
0 ],2[ 
0 ] ,3[ 


)9( المصفوفة الصفرية : 
لانشاء مصفوفة باربعة اعمدة وثلاث صفوف e‏ تحتوي على قيمة 0 » نكتب 
الايعاز : matrix(0,nrow=3,ncol=4)‏ > 
او بصورة اخرى يكتب كالاتي : 


> matrix(0,3,4) 
[r1] [,2] [-3] [-4] 
0 


[1,] 0 0 0 
[2,] 0 o 0 0 
[3r [ 0 0 0 0 


۳ 


الفصل الرابع : البيانات في R‏ 


array() Nall (10)‏ : 
تستخدم الدالة array)‏ لكتابة مصفوفة ببعدين e‏ كما في المثال التالي : 


> y = array(1:8, dim=c(4,2)) 
> y 
[yl] [,2] 
[1,1 1 5 
]2 م‎ [ 6 
[3,1] 3 7 
[4,1 4 8 


وغالباً ما تُستخدم AUS array() Aal‏ مصفوفة باكثر من dam‏ حين ان 
الخيار "dim"‏ يعطي عدد الصفوف والأعمدة والطبقات وكما في المثال التالي : 
y = array(1:16, dim=c(4,2,2))‏ > 


=y 
,.1 

,1] [2] 
[1] 1 5 
[2] 2 6 
[3] 3 7 
[4] 4 8 
2 

,1] [2] 
]1,[ 9 13 
]2,[ 10 4 
[3,] 15 1 
[4,] 12 6 


مثال 
>a<- array(c(‘green’, yellow'),dim=c(3,2,2))‏ 
>a‏ 


لغة البرمجة ‏ للحوسبة الأحصائية 


1 م 


۱ , 11 ] م‎ 2] 
م1‎ [ "green" "yellow" 
2,] "yellow" "green" 
[3,] "green" "yellow" 


F F ۳4 

[,1] ] م‎ 2] 
] 1 , [ "green" "yellow" 
[2,] "yellow" "green" 
] 3, [ "green" "yellow" 


)3.27 ,1.93 ,5.29 ,6.01 ,2.22 ,0.76 ,4.20 ,3.89 ,001.26 = عر > 
y = matric(x, nrow=3)‏ > 
خطأ: Y‏ توجد دالة "matric"‏ اي خطأ املائي : 

> y = matrix(x, nrow=3) 
> y 

Lt 1,2] 1,3] 
[1,] 1.26 0.76 5.29 
[2,] 3.89 2.22 3 
[3,] 4.20 6.01 3.27 


)11( المعادلات الخطية Linear equation‏ 
الحل لنظام المعادلات الخطية في R‏ فقط بدالة واحدة (solve)‏ »و المثال التالي 
يوضح ذلك : 
3Xx1+2X>-X3=1‏ 
2X1-2x+4x3=-2‏ 
-x1+0.5x>-x3=0‏ 


5 2 1/2, 1 
2 2ح‎ A | [2 
-1 0.5 -1 | 0 


>A=array(c(3,2,-1,2,-2,0.5,-1,4,-1),c(3,3)) 
>b=c(1,-2,0) 


, A*x=b A'*b=x 





EN 


الفسل الرابع : البيانات في R‏ 


>solve(A,b) 
[1] 1-2-2 


4 الجداول Tables‏ 
الواردة في المتجهات او اطار البيانات » والنتيجة هي شيء يبدو في كثير من 
الحالات مشابه الى المصفوفة او المجموعة Lady (array)‏ يلي انشاء بعض البيانات: 
توزيع عشوائي طبيعي #100 y = rnorm(100, mean=100, sd=15)‏ > 
التقریب لعدد صحيح y = round(y, 0) H‏ > 

هي عشوائية ءفي کل المرة النتانج تکون مختلفة. 
لعرض جدول للارقام وتکراراتها : 
table(y)‏ > 


y 

64 69 73 74 77 79 50 81 82 84 85 86 87 88 89 90 91 

92 93 

1 1 1 1 4 4 2 1 1 2 1 1 1 3 1 1 1 2 1 

94 95 96 97 98 99 100 101 102 103 104 105 106 107 109 

110 111 112 113 

4433526315422 2 1 2 1 4 3 

114116117 118 119 120 123 125 9 

Zook 4 21 12% 

الصف العلوي من آلارقام يحتوي على قيم البيانات» التي يمكن أن نراها بمدى من 

129-4 والصف السفلي من أرقام يعطي الترددات. قيمة البيانات (أي قيم y‏ هي 

0(مجموع التكرارات = 100( . الجداول بطبيعة الحال» تماما Js‏ كل شيء 
آخر في ۸» يمكن تخزينها واستخدامها بعد ذلك لمزيد من التحليل : 

> table(y) -> 6 # خزنها‎ 

> barplot(mytable) 

> 15)( 

[1] "myTable" "y" 


Eu 


لغة البرمجة ‏ للحوسبة الأحصائية 


>rm(myTable, y) 


5 اطر البيانات Data frames‏ 
يتم استخدام إطار بيانات لتخزين جداول البيانات. ومن قائمة متجهات متساوية 
الطول. فهي اعم من المصفوفة لكن الاعمدة تكون مختلفة بين رقم .حرف »عامل › 
متجه وما الى ذلك » على سبيل المثال» المتغير التالي 04 إطار بيانات تحتوي على 

: n, s,  تاهجتم ثلاث‎ 
>n=c(2, 3, 5) 
> s = c("red", "green", "white") 
> b=c(TRUE, FALSE, TRUE) 
> df = data.frame(n, s, b) # df هو اطار بيانات‎ 
> fix(df) 
fix Mall وتستخدم‎ e df بيانات المتغيرات 2,5,6 مغلفة في اطار البيانات‎ 
بشكل جدول حيث تمثل المتجهات‎ R Data Editor لترتيب اطار البيانات في شاشة‎ 
: عناوين الاعمدة وكما يلي‎ be sen 


Data Editor 


varg 





يمكن استخدام الدالة التالية لتسمية المتغيرات وكما يلي : 
اسماء المتغيرات # names(df)<-c("ID","color","passed")‏ > 
di‏ > 

ID color passed 
1 2 red TRUE 
2 3 green FALSE 
3 5 white TRUE 

وهناك مجموعة متنوعة من الطرق لتحديد عناصر اطار البيانات: 

لطباعة الاعمدة 2 و 3 من اطار البيانات اعلاه ۰ 


الفصل الرابع : البيانات في R‏ 


df [2: 3] 
color passed 
red TRUE 
green FALSE 
white TRUE 


او الاعمدة ID‏ و color‏ من اطار البيانات df‏ : 


> df[e{"ID" "color"}] 
ID color 

1 2 red 

2 3 green 

3 5 white 


‘yf 


ta ی‎ 


ولطباعة احد الاعمدة من اطار البيانات نستخدم الايعاز التالي : df$ID‏ > 


[1] 23595 


مثال : انشاء جدول يحتوي اسماء الجينات ونسبة التعبير : 
results<- data.frame(geneName = c("genel","gene2","gene3"),‏ > 


expression= c(1,4,0.3) ) 
> results 
geneName expression 
1 genel 1.0 
2 2 4.0 
3 63 0.3 


اما اذا اردنا الحصول على اسماء الجينات فقط »فیکتب اسم المتغير +$ + اسم 


Mía > العمود‎ 


> results$geneName 
[1] genel gene2 gene3 
Levels: genel gene2 gene3 


لغة dsas ll‏ ۸ للحوسبة الأحصائية 


> x=c(1,2,3) : مثال‎ 


> ۱۳-3 111 (=z) 
> 3ss-=data.fram(x,y) ' Data Editor 


Error: could not find function "data.fram" x ly |vars | 
> 335-033 . frame (x, y) ۸ Jos) | 
> rmx, y) > [2 fosos] 5 


+ x 

Error: object 'x' not found 

> y 

Error: object 'y' not found 

> 1 15 )] 35 | 

+ 33ÉxX 

[1] 123 

> 33y 

[1] 0.8414710 0.9092974 0.1411200 
a l 





Datafram mtcars -‏ يأتي la y jae‏ مع لغة R‏ بشكل افتراضي وهو كما يلي: 
mtcars‏ > 
mpg cyl disp hp drat wt...‏ 

Mazda RX4 21.0 6 160 110 3.90 2.62 ...‏ 
Mazda RX4 Wag 21.0 6 160 110 3.90 2.88 ...‏ 
Datsun 710 22.8 4 108 93 3.85 2.32 ...‏ 
السطر العلوي من الجدول» يُدعى الرأس» يحتوي على أسماء الأعمدة. كل خط 
أفقي يدل على التوالي بعد ذلك البيانات» التي ai‏ مع اسم الصف. تم تليها البيانات 

الفعلية. هنا هو قيمة الخلية من الصف الأول» العمود الثاني من ‚mtcars‏ 
mtcars|[ 1, 2]‏ > 
6 ]1[ 
وعلاوة على ذلك» يمكننا استخدام أسماء الصفوف والأعمدة بدلا من إحداثيات رقمية . 
mtcars["Mazda RX4", "cyl"]‏ > 
6 ]1[ 


الفصل الرابع : البيانات في R‏ 


>nrow(mtcars) # عدد بيانات الصف‎ 
[1]23 
> ncol(mtcars) # number of columns 
[1] 11 


> help(mtcars) 
بدلا من طباعة إطار البيانات بالكامل» غالبا ما يكون من المرغوب فيه معاينة‎ - 


البداية مع دالة head‏ 


> head(mtcars) 
mpg cyl disp hp drat wt... 
Mazda RX4 21.0 6 160 110 3.90 2.62 ... 


- دالة LAG : expand. grid()‏ اطار بيانات من كافة تركيبات المتجهات او العوامل 


aa=c("green”, "red", "yellow") 
hE dls كر‎ "Z. 5", "6. 1") 

{THT TFT ee‏ كدوقت 
expand. grid (aa, hh, 533)‏ 


Yarl Yarz Vars 


In Pi Ri hi PPP on tn tn Ra hs 
ده رد رد‎ ee ee Ee ee E 


2 


Ly‏ كنا A‏ يك mom 3556 Rs‏ 0 شما شا تا يكم 


3 


green 
red 
vellow 
green 
red 
vellow 
green 
red 
vellow 
green 
red 


۶ yellow 


green 


لغة البرمجة ‏ للحوسبة الأحصائية 


4 العوامل Factor‏ 
العامل هو بنية البيانات المستخدمة في الحقول التي تاخذ فقط قيم معرفة مسبقا e‏ 
ولعدد محدود من القيم أي بيانات متكررة او مصنفة » مثلا ذكر او انثى او مثل 
الحالة الاجتماعية قد تحتوي على añ‏ وحيدة من :اعزب 4 منزو e‏ مطلق أو 
الأرامل. في مثل هذه الحالة» ونحن نعلم القيم الممكنة مسبقا وتسمى هذه القيم متميزة 
المستويات. 
وفيما يلي امثلة على العامل في R‏ 
x=c("Yes","No","No"," Yes”, Yes")‏ > 
طباعة القيم في × # × < 
"Yes" "No" "No" "Yes" "Yes"‏ ]1[ 
طباعة القيم في عامل(:) # factor(x)‏ > 
Yes No No Yes Yes‏ ]1[ 
ashi‏ المستویات Levels: No Yes#‏ 
-لانشاء عامل نستخدم الدالة factor()‏ 
married”, married”, ٩188216 ((‏ 


mn 


> x <factor(c( "single", 
X 
[1] single married married single 
Levels: married single 
> x <- factor(c("single","married","married", "single"), 
levels=c("single","married","divorced")); x 
[1] single married married single 
Levels: single married divorced 

المستويات قد تكون محددة مسبقاً حتى اذا لم يتم استخدامها . 
العوامل ترتبط ارتباطاً we Lis,‏ المتجهات » في الواقع» يتم تخزین العوامل 

مثل المتجهات الصحيحة. هذا بوضوح من هیکلها . 

x <- factor(c("single”,"married”, married”, "single" ))‏ > 
str(x)‏ > 
Factor w/ 2 levels "married","single": 2 1 1 2‏ 
- العوامل أيضا يتم انشاؤها عندما نقرا الأعمدة غير العددية في إطار البيانات. 


mn 


الفصل الرابع : البيانات في R‏ 


افتراضيا دالة data frame()‏ تحول المتجه الحرفي الى ale‏ 
- الدالة nlevels()‏ تعطي عدد المستويات للعوامل وكما E‏ المثال ٠‏ 


> 11-1 green’, *red’, ۲ red”) 
> 1111 لا‎ (ff) 

> Eff 

[1] green red red 
Levels: green red 

> nlevels(ttt) 

]1[ 2 


-الوصول الى مكونات العامل : وهو يشبه الى حد كبير المتجه 
X‏ > 
single married married single‏ ]1[ 
Levels: married single‏ 


> x[3] H الوصول للعنصر الثالث‎ 
[1] married 
Levels: married single 


> x[c(2,4)] #۴ الوصول للعنصر الثاني والرابع‎ 
[1] married single 
Levels: married single 


> x[-1] H ماعدا العنصر الاول‎ JSU الوصول‎ 
[1] married married single 
Levels: married single 


> x[c(TRUE, FALSE, FALSE, TRUE)] # باستخدام متجه منطقي‎ 
[1] single single 
Levels: married single 


>s=c("aa","bb","cc","dd") 
>s[c(FALSE, TRUE,FALSE, TRUE)| 


لغة البرمجة ‏ للحوسبة الأحصائية 


[1] "bb" "dd" 
۰ تعديل العامل‎ _ 
قوب و و ای‎ De Aad pst 
> X 


[1] single married married single 
Levels: single married divorced 


> x[2] <- "divorced" HAN تعديل العنصر‎ : x 
[1] single divorced married single 
Levels: single married divorced 
> x[3] <- "Widowed" لايمكن تعيين قيم المستويات الخارجية # ارمل‎ 
: رسالة تحذير‎ - 
In [<-.factor C *tmp*`, 3, value = "widowed") : 
۲ مستوى عامل غير صالح یولد۸‎ 
> X 
[1] single divorced <NA> single 
Levels: single married divorced 
والحل لهذه المشكلة هو إضافة قيمة إلى المستوى الأول‎ 
> levels(x) <- c(levels(x), "Widowed" ( 
# اضافة مستوى جديد‎ 
> x[3] <- "widowed" 
> X 
[1] single divorced widowed single 
Levels: single married divorced widowed 
: مثال : في هذا المثال نلاحظ أنه لدينا مستويين (نوعين) من القيم 1 وص‎ 
> gender <- factor {c {"m", "m", "ET, "m", "E", "TE", "TE"}) 
> gender 


[1] mm 1 171 ff 
Levels: Ê m 


مثال : متغير الجنس مع 20 ادخالات "ذكور" و30 ادخالات "اناث" 


الفصل الرابع : البيانات في R‏ 


> gender <- c(rep("male”,20), rep("female", 30)) 
> gender <- factor (gender) 
> summary (gender) 
female male 
30 20 

> gender 

[1] male male male male male male male male male male 
[11] male male male male male male male male male male 
[21] female female female female female female female female female female 
[31] female female female female female female female female female female 
[41] female female female female female female female female female female 
Levels: female male 


4 دول للحصول على معلومات عن مجموعة البيانات : 
فيما يلي ملخص لعدد من الدوال المستخدمة في سرد محتويات الكائن او 
البيانات : 
)2( قائمة المتغيرات في بياناتك : names(mydata)‏ 
)3( قائمة لهيكل البيانات : str(mydata)‏ 
)4( ابعاد الكائن : dim(object)‏ 
)5( فئة CAS‏ (ر قمي «مصفو 44 » اطار بيانات» الخ) class(object)‏ 
)6( طباعة البيانات : mydata‏ 
)7( طباعة ال10 صفوف الاولی من البيانات : head(mydata, n=10)‏ 


مثال : لتطبيق الدوال اعلاه على بيانات mtcars‏ نحصل على الاتي : 


لغة البرمبة R‏ للحوسبة الأحصائية 


"am" "gear™ 


"gsec” "y3” 


SEC TS am gear carb 


4 


4 
1 
1 


4 


$ mpg : num 21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 
$ cyl : nm 6646868446 
5 disp: num 160 160 108 258 360 
5 hp : num 110 110 93 110 175 105 245 62 95 123 
5 drat: num 3.9 3.9 3.65 3.08 3.15 2.76 3.21 3.69 3.92 3.92 
5 wt : num 2.62 2.88 2.32 3.21 3.44 
5 qsec: num 16.5 17 18.6 19.4 17 
$ vs : mm 0011010111 
Sam : num 1110000000 
š gear: mum 4 4 4 3 3 3 3 4 4 4 
$ carb: num 4 4 1 1 2 1 42Z 2 4 
> dim(mtcars) 
[i] 32 11 
> class (mtcars) 
[1] "data.frame"™ 
> head (mtcars,n=4) 
mpg cyl disp hp drat wt 
Mazda EX4 21.0 & 160 110 3.90 2.620 
Mazda RA343 Wag 21.0 5 160 110 3.90 2.875 
Datsun 710 22.8 4 106 23 3.85 2.320 
é 258 110 3.08 3.215 


4 
4 
a 


1 


1 
1 
o 


ت فز هم 


16.46 
17.02 
18.61 
19.44 


Mrara ۲ 
1 ۱ 


"drat" "wt" 


> 1350( 


[1] "data" "datal" "data?" "m" 


> names (mtcars) 


[1] "mpg" "cyl" "disp" "hp" 


of 11 variables: 


32 obs. 


[11] "carb" 
> Str (mtcars) 
'data.frame': 


Hornet 4 Drive 21.4 
1 


الفصل الرابع : البيانات في R‏ 


[aroan 


: س1 : ماذا يطبع كل مما يلي‎ 
1) >c(1,4,9) 
2) >x<- 000, 7, 8) 
> >- 2-5: 
3) >a=c(1:5);b=c(1:10);a+b 
4) > rep(3,8) 
5)> rep(c(3, 4), c(4, 3)) 
6)> rep(c(6, 9), each=4) 
/)> rep(seq(2, 20, 2) 
8)> rep(seq(from=3,to=15,by=3),time=3) 
9) > s=NULL;s[seq(1,10,2)|=seq(1,10,2);s 
10) > x=c(3,6,8,NA,5,2);mean(x,na.rm=TRUE) 
11) > x=c(3,6,8,NA,5,2);mean(x) 
12) > a=c(3,0,-2);a/a 
13) > b=c(4,0,-6);12/b 
14) > a=c("2","g");a 
15)> x <- factor(c("single","married","married","single") 
levels=c("single","married","divorced")); 


mn 


x;str(x);nlevels(x) 


س2: عدد انواع البیانات في برنامج R‏ ۲ و Sal‏ او جه CIA Y]‏ بين هذه الانواع ؟ 
س3: هل یمکن ربط المتجهات les‏ ؟ اعط مثال ؟ 
س4: عرف ما يلي : 

(1) المتجهات (2) القيم المفقودة (3) المتجهات الحرفية 
س5: ما الفرق بين المصفوفات والمجموعات Matrices and Arrays‏ ؟ اذكر 
اسم الدالة لكل منهما ؟ 


لغة البرمجة ‏ للحوسبة الأحصائية 


z 


س6:وضح استخدام كل من الرموز التالية » مع ذكر مثال 
(DNA | (2)rm‏ 
(Inf $S |‏ 

(7) objects() 


(4) diff (12) nrow() 
(13) head() (14) str() (15) names() 





a=| 1 4 -8‏ 
س8: لیکن لديك المصفوفه التالية : ۲ اجب عن ما يلي في 


لغة البرمجة :R‏ 
(1) انشاء مصفوفة 
(2) قيمة العنصر في الصف الثاني والعمود الثالث 
)3( جمیع pull‏ في الصف A‏ 
)4( جمیع القیم في العمود الاول 
)5( جمیع ad‏ المصفوفة ماعدا الصف الثالث 
)6( الصف SEN‏ والثالث للاعمدة الاول AN y‏ 
Le! (7)‏ الاسماء (al,a2,a3)‏ للاعمدة والاسماء (b1,b2,b3)‏ للصفوف 
6 9 2 
س9: ليكن لديك المصفوفة التالية : 759 abl NZ‏ في ۸ ما يلي : 


س10: اكتب دالة كل مما يلي : 
)1( مصفوفة احادية ثلاثية الابعاد 


(2) مصفوفة صفرية بثلاث اعمدة واربع صفوف 


EX 


الفصل الرابع : البيانات في R‏ 


س1 1: حل المعادلات التفاضلية التالية باستخدام 8 ؟ 
3x1+2Xx>-X3=1‏ )1 
2X1-2x>+4x3=-2‏ 
-X1+0.5x>-Xx3=0‏ 
2a-3b+c=1‏ )2 
a+b-2=3‏ 
3a-b+2c=5‏ 

س12: a OS!‏ اطار بيانات مُعرف كالاتي : 


mn 


> a=factor(c("male","female","female","male")) 
: والتي تمثل ما يلي‎ R اكتب العبارات في‎ 
هيكل اطار البيانات (3) العنصر الثاني‎ )2( a اطار البيانات‎ )1( 


كاد 









الفصل الخامس 
Lía‏ و اسند عاء البيانات 


5 مقدمة 

5 حفظ واستدعاء كائن 

5 استيراد البيانات من القرص المحلي 

5 ستخدام البيانات من R‏ 

5 قراءة البیانات من ملف تنسيقه CSV‏ 

5 قراء: البیانات من الملفات النصیه,)ج) 

5 استیراد ملفات Excel‏ الى R‏ 

5 استیراد البیانات من الانترنت 

5 استیراد ملفات البیانات باستخدام وظيفة المسح الضوئي 

5 تصدير البیانات Exporting data‏ 
اسئلة الفصل الخامس 


N 


R ۵ 
. A 





الفصل الخاهس bor:‏ واستدغاء البياذاءته 


5 مقدمه 

قد نجد في تحميل البيانات الى R‏ بعض القيود الواجب العمل بها لكل نوع من 
ملفات البيانات التي نحتاجها » وهذا ما يتطلب دالة خاصة لكل نوع لاستيراد البيانات 
بسهولة وسرعة الى ۸ . 

ولاستيراد البيانات إلى «R‏ يجب أولا الحصول على بيانات والتي يمكن ان تكون 
مخزونة في ملف على جهاز الكمبيوتر الخاص بك Je)‏ سبيل المثال في «Excel‏ 
«SPSS‏ أو أي نوع آخر من الملفات)» ولكن يمكن أيضا أن يوجد على شبكة 
الإنترنت أو يمكن الحصول عليها من خلال مصادر أخرى.وقبل ان نمضي قدما في 
كيفية تحميل البيانات الى R‏ قد يكون من المفيد التعرف الى قائمة الاختيارات التالية 
والتي من شأنها أن تجعل من السهل على استيراد البيانات بشكل صحيح إلى R‏ 
)1( ادا كنت تعمل مع جداول البيانات» الصف الأول عادة محفوظة للرآس» في حين 
يتم استخدام العمود الأول لتحديد وحدة المعاينة. 
(2) تجنب الأسماء أو القيم أو الحقول والتي تحتوي مسافات فارغة وإلا سيتم تفسير 
كل كلمة كمتغير مستقلء مما أدى إلى الأخطاء التى ترتبط إلى عدد من العناصر فى 
كل سطر في مجموعة البيانات. l l‏ 
)3( ادخال الكلمات Ya‏ من الفراغات بين سلسلة كلمات . 
(4) تفضل الاسماء القصيرة على الاسماء الاطول 
(5) حاول تجنب استخدام الأسماء التي تحتوي على رموز مثل : 
} .{. لو ]نارگید (CI)‏ ,* بع ,^ ,%,$ 2 
)6( حذف أي تعليقات قمت بها في ملف Excel‏ لتجنب أعمدة إضافية أو NA‏ 
تضاف إلى الملف. 
)7( تأكد من أن يتم الإشارة إلى أية ad‏ مفقودة في مجموعة البيانات بذكر NA‏ 

والخطوة التالية في استيراد البيانات الى ۸ هي اعداد مساحة العمل R ( R‏ 
(Workspace‏ فقد یکون ¿Lal‏ بيئة الت Y‏ تزال مليئة بالبيانات والقيم حيث يمكن 
الاطلاع ¡E‏ محتوياتها باستخدام الدالة ()15 ؛ ثم بمكنلك ara‏ جميع الكائنات من 
بيئة معينة باستخدام السطر التالي من التعليمات البرمجية: rm(list=ls())‏ كما في 
المثال التالي: 


لغة البرحجة R‏ للحوسبة الأحصائية 


)131 > 
FI dat al FF "dat as FI "A? From‏ ] 1 1 
rmi{list=1s ) [( |‏ > 
)151 > 
character (0)‏ 
> 
وباستخدام الدالة getwd()‏ يمكن معرفة المسار التي تحصل فيه على النتائج وربما 
الى المجلد التي قمت بتخزين بياناتك فيه. 


5 حفظ واستدعاء كائن : 
في R‏ يمكن تخزين كل كائن واستعادته من ملف مع الأوامر حفظ save‏ 
وتحمیل ¿load‏ وکما في المتال التالي: 
x <- 4‏ 
لخزن save(x,file="x.Rdata”) x‏ 
لمسح عر من الذاكرة rm(x)‏ 
X‏ 
يظهر الخطأ : الكائن  "‏ " لا يوجد Error :object 'x' not found‏ 
لتحميل load("x.Rdata") x‏ 
x[1]1234‏ 
5 استيراد البيانات من القرص المحلي : 
getwd()‏ > 
"C:/Users/amb/Desktop/R python course"‏ ]1[ 
h2 <- read.table("C:Users/amb/Desktop/R python course/ hsb2‏ > 
CSV"‏ 
Or > h2 <- file.choose()‏ 
- الدالة File.choos()‏ : لفتح نافذة بالملفات واختيار الملف من المجلد او 
القرص. 
5 استخدام البيانات من R‏ 
كل الحزم والبيانات هي مناسبة للاستخدام في عدة امثلة تأتي مع R‏ » وان استخدام 
البيانات من اي حزمة » قد نحتاج الى تحميلها الى R‏ من قبل الدالة: 
>library()‏ 


۳ 


الفصل الخاهس : حفظ واستدعاء البياناءه 


والتي تعرض نافذة بحزم البيانات المتوفرة في R‏ وكما في الشكل (1-5) : 
[RR R packages available [==]‏ 


Packages in library ‘*C:/Users/dell1/Documents/R/win-library/3.2': an 
BiasedUrn Biased Urn model distributions 

epiR Tools for the Analysis of Epidemiological Data 
yads Yet Another GEE Solver 


Packages in library 'C: Program Files/R/R-3.2.0/library': 


base 5 The R Base Package 

boot Bootstrap Functions (Originally by Angelo Canty 
for 5) 

class Functions for Classification 

cluster Cluster Analysis Extended Rousseeuw et al. 

codetools Code Analysis Tools for E 

compiler The R Compiler Package 

datasets The R Datasets Package 

foreign Read Data Stored by Minitab, 5, SAS, SPSS, 
Stata, Systat, Weka, dBase, ... 

graphics The R Graphics Package 

grDbevices The R Graphics Devices and Support for Colours 
and Fonts 

grid The Grid Graphics Package 

KernSmooth Funetions for Kernel Smoothing Supporting Wand 
& Jones (1995) 

lattice Lattice Graphics 


a 





شكل )1-5( نافذة حزم البيانات في R‏ 


لاستخدام البيانات لاي حزمة وهنا اسم الحزمة >library(lattice) #lattice‏ 
لعرض مجموعة البيانات في الحزمة data(package="lattice") # lattice‏ > 
حيث تظهر النافذة كما في الشكل (2-5): 
| د )م كم [FE R data sets‏ 


Data sets in package ‘lattice’: 


barley Yield data from a Minnesota b$ 

environmental Atmospheric environmental cons 
York City 

ethanol Engine exhaust fumes from burs 

melanoma Melanoma skin cancer incidence 

singer Heights of New York Choral 5 





lattice شک( 2-5( نافذة الحزمة‎ j 
فهي لعرض كل مجموعات البيانات في حزمة 'مجموعة البيانات'‎ data() اما الدالة‎ 
:)3-5( وكما في النافذة في الشكل‎ 


لغة drag ll‏ ۸ للحوسية الأحصائية 


FH F data sets | عا |[ ص‎ || 55 | 
Data sets in package ‘datasets’: 


AirFassengers Monthly Airline Passenger Numbers 15 نا‎ 
BJsales Sales Data with Leading Indicator 
BJsales.lead (BJsales) 
Sales Data with Leading Indicator 
BOD Biochemical Oxygen Demand 
COZ Carbon Dioxide Uptake in Grass Plans 
ChickWeight Weight versus age of chicks on diff 
DNase Elisa assay of DNase 
EustockMarkets Daily Closing Prices of Major Europ® 
Indices, 1991-1998 
Formaldehyde Determination of Formaldehyde 
HairEyelolor Hair and Eye Color of Statistics 5 
Harman?3.cor Harman Example 2.3 
Harman? 4 . cor Harman Example 7.4 
Indometh Pharmacokinetics of Indomethacin 
InsectSprays Effectiveness of Insect Sprays 


Alu z TA 


شكل )3-5( نافذة مجموعة البيانات 





لتحميل واستخدام البيانات وهي في مثالنا 002 # data(CO2)‏ > 
لتحميل البيانات لست صفوف في المقدمة # >head(CO2)‏ 
Plant Type Treatment conc uptake‏ 

021 Quebec nonchilled 95 16.0 

Onl Quebec nonchilled 175 30.4 

Onl Quebec nonchilled 250 34.8 

Oni Quebec nonchilled 350 37.2 

Oni Quebec nonchilled 500 35.3 

Onl Quebec nonchilled 675 39.2‏ 
لتحميل البيانات لست صفوف في النهاية  >tail(CO2)‏ 
لتحميل البيانات لعشر صفوف في النهاية # >tail(CO2,10)‏ 
بمجرد استيراد بياناتك يمكنك الوصول إلى القيم الموجودة في أي من أعمدة 
جدولك باستخدام الصيغة CO2$conc‏ على سبيل المثال conc Gus‏ يشير إلى اسم 
دون الحاجة إلى ذكر اسم إطار البيانات المأخوذ Ade‏ في كل ya‏ فعليك بداية 
استخدام الامر attach(CO2)‏ عقب استيرادك للبيانات» وحينها يكفي ذكر الاسم 

conc‏ للدلالة على دات العمود من البيانات. 


oy «cr & Co RO pp” 














الفصل الخافس : baa‏ واستدعاء البياذاءته 


- الدالة attach()‏ : هي لاستخدام اسماء المتغیر ات E‏ العمل مع البيانات ۰ 
attach (C02)‏ > 
names (C02)‏ > 
"Plant" "Type" "Treatment" "conc" "uptake"‏ ]1[ 
بعد الانتهاء من البيانات تُحفظ نسخة جديدة # >CO2.copy <-CO2‏ 
5 قراءة البيانات من ملف تنسيقه CSV‏ 
(comma separated value) csv‏ او الملف الذي يفصل بين قيمه » او : وكما 


في المثال : 
coll col2 3‏ 
3 2 1 
6 5 4 لتحمیل هذا الملف ¿Soy‏ استخدام دالة read.table()‏ بعد تحديد 
9 8 7 
b C‏ 0 
الفاصل » او تستخدم الدالة read.csv()‏ | وبذلك تكون قراءة الملف من نوع CSV‏ 
بالطريقتين : 


df <- read.table("<FileName>.csv" ,header=FALSE,seq=",") 
dí <- read.csv("<FileName>.csv" header=FALSE) 
: esy محتویات لملف‎ 
data <- read.csv("d:/mydir/myfile.csv", header=TRUE, sep=”;”) 
يعني ان السطر الاول من البيانات في الملف يحتوي على تسميات‎ header التعبير‎ 
. او لا‎ 
. معناها ان الصف الاول يحوي بیانات لاسماء المتغیر ات‎ header=TRUE فاذا‎ 
a يعين كيفية فصل وحدات البيانات ولها اللاشكال التالية‎ sep والخيار‎ 
- Commas: sep="," 334 
: Tab : seq="\t" Tab استخدام المفتاح‎ 
1 Space : sep=" " 2) yall 


EN 


لغة drag ll‏ ۸ للحوسية الأحصائية 


> data<-read.csv("e:'nn.csv"”,header=TRUE) 
> data 
5 . ۳ ۰۳۰ 
1 2۷۶ ۵۶ 1۳۶ با‎ 
دول ول ور و1‎ 
3 2۶ ۶ CVD 


حر 


5 قراءة البيانات من الملفات النصية ‚txt‏ 

وهي النوع الثاني الاكثر استعمالا في قراءة البيانات من الملفات النصية txt.‏ 
حيث توجد الفواصل بين الحقول مثل الفراغ او النقطة الفاصلة » وهنا توفر ‏ دالة 
sill read.table()‏ تسمح بقراءة الملفات النصية وتعطيك تحكما تاما في كيفية 
ell‏ مثلا يمكنك أن تخبرها أن السطر الأول یمثل اسم الأعمدة وان الحقول 
مفصولة بينها بفراغات بمفتاح Space.vls Tab‏ . 
مثال : محتویات txt‏ : 

1 6 a 


2 7 2 


4 9 ad 
5 10 e 


dí<-read.table("<FileName>.txt" header = FALSE) 


لاحظ أنه باستخدام هذه الدالة» والبيانات من ملف ستصبح data.frame ¿AS‏ 
و FileName‏ ليس دائما اسم الملف» ولکن Lu)‏ پمکن A) as]‏ تكون صفحة 
الويب sill‏ تحتوي على البيانات. تحدد header‏ ما ادا كنت قد حددت أسماء الأعمدة 
في ملف البيانات. وستكون النتيجة النهائية للاستيراد على النحو التالي: 


EN 


الفصل الخاهس ele za lo bor:‏ البياذاءته 


TI v2 v3 
1 56 a 
7 b 
ىا‎ c 
dl 
e 


Bl Al FP 


3 
5 5 10 
: مثال : ليكن لدينا ملف يحتوي على البيانات التالية‎ 
chr start end length CpGcount GCcontent pctGC 0 
6۳0۳10 93098 93818 721 32 403 0.559 02 
chr10 94002 94165 4 12 97 0.591 0.841 
chr10 94527 95302 776 65 538 0.693 0.702 
6۳0۳10 119652 120193 542 53 369 0.681 0.866 
chr10 122133 122621 489 51 339 0.693 0.88 
chr10 180265 180720 456 32 256 0.561 0.893 
6۳0۳10 180865 182549 1685 230 1263 0.75 0.984 
chr10 242994 243152 159 10 74 0.465 1.193 
6۳0۳10 313778 313905 128 6 64 0.5 0.769 
يمكننا قرائه كالتالي:‎ data.txt لنفرض مثلا أن اسم الملف هو‎ 
> data <- read.table(file="data.txt",header=TRUE, sep="\t") 
> data 
chr start end length CpGcount GCcontent pctGC obsExp 
1 chrlO 93098 93818 721 32 403 0.559 0.572 
2 60710 94002 94165 4 12 970.591 41 
3 060۳10 94527 95302 776 65 538 0.693 0.702 
4 chr10 119652 120193 542 3 369 0.681 0.866 
5 chr10 122133 122621 489 51 339 0.693 0.880 
6 chrl0 1802653 180720 456 32 2560.561 0.893 
7 chr10 180865 182549 1685 230 1263 0.750 0.984 
8 chr10 242994 243152 159 10 740.465 1.193 
9 chr10 313778 313905 128 6 64 0.500 0.769 


2 
3 
4 
5 


لغة البرحجة R‏ للحوسبة الأحصائية 


إذا كان حجم البيانات كبيرا من الأحسن استعمال أمر head‏ لاظهار الاسطر 
الأولى من الملف» في العادة للتأكد من أن القراءة تمت بالشكل الصحيح. يمكن أيضا 
معرفة ase‏ الأسطر و عدد الأعمدة باستعمال أمر dim()‏ . 
head(data)‏ > 
chr start end length CpGcount GCcontent pctGC obsExp‏ 
chr10 93098 93818 721 32 403 0.559 0.572‏ 1 
0.841 970.591 12 4 94165 94002 01110 2 
0.702 0.693 538 65 776 95302 94527 1110© 3 
chr10 119652 120193 542 53 369 0.681 0.866‏ 4 
chr10 122133 122621 489 51 339 0.693 0.880‏ د 
chr10 180265 180720 456 32 256 0.561 0.893‏ 6 
dim(data)‏ > 
1198[ 
وفي مثال اخر لملف من نوع txt‏ مخزون على حاسبتك في جزء الذاكرة d‏ : 
t=read.table("d:/test.txt",header=T)‏ > 
t‏ > 
make model mpg weight price‏ 
AMC Concord 22 #930 4099‏ 1 
AMC Pacer 17 3350 47749‏ 2 
AMC Spirit 22 #640 3799‏ 3 
Buick Century 20 3250 4816‏ 4 
Buick Flectra 15 4080 7527‏ 5 


5 أستيراد ملفات Excel‏ الى +1 
لتحميل ملفات Excel‏ إلى 8» تحتاج أولا إلى القيام ببعض الإستعداد في تهيئة 
المزيد من مساحة العمل » بمعنى أن تحتاج إلى تثبيت الحزم . ببساطة نكتب 
التعليمات البرمجية التالية: )"> اسم الحزمة install packages("<‏ > 
رديه تحن al‏ يمك اقا te AA‏ لوجر ها فى Jedi‏ 
)"> 
اسم الحزمة <"( library‏ > 


الفصل الخاهس ele jalo bor:‏ البياذاءته 


5 استيراد البيانات من الانترنت 
كما وتتم القراءة من الانترنت باستخدام الدالة read.table()‏ »وفیما يلي امثلة 
s <- read.table(“http://www.google.com/finance/historical?‏ > 
q=NASDAQ:AAPL&output=csv", header=TRUE, sep=",")‏ 
>cs <- read.table("http://www.portfolioprobe.com/R/blog/‏ 
xassetCountrySector.txt", sep="\t", header=TRUE)‏ 
>dat.csv<-read.csv(“http://www.ats.ucla.edu/stat/data/hsb2.csv")‏ 
هذا الامر يعمل عند الاتصال بالانترنت » ثم نسخ ولصق البيانات لجلسة R‏ 


5 استيراد ملفات البيانات باستخدام وظيفة المسح الضوني 
وظيفة المسح الضوئي هو أداة مرنة للغاية لاستيراد البيانات. ويمكن استخدامه 
لقراءة في ما يقرب من أي نوع من البیانات» رقمي» حرفي أو معقدة ويمكن 
استخدامه لملفات المنسقة ثابتة أو الحرة. وعلاوة على ذلك» باستخدام وظيفة المسح 
الضوئي من الممكن إدخال البيانات مباشرة من وحدة التحكم. 
في الأمثلة التالية أننا الإدخال الأول بيانات رقمية ثم سلسلة البيانات مباشرة من 
وحدة التحكم. ثم ادخال ملف (aa‏ 01 حیت المتغير الأول هو Rein‏ 
سلسلة والمتغير الثاني هو رقمي. 
- ادخال البيانات مباشرة من وحدة التحكم >x <- scan()‏ 
1:3569 
5:230 
:8 
Read 7 items‏ 
>X‏ 
6 53 2 9 6 3 3 [1] 
mode(x)‏ > 
"numeric"‏ ]1[ 
- ادخال سلسلة بيانات مباشرة من وحدة التحكم : 
>name.x <- scan(, what="")‏ 
red blue‏ :1 


لغة البرحجة R‏ للحوسبة الأحصائية 


3: green red 
4: blue yellow 
L 
Read 6 items 
>name.x 
[1] "red" "blue" "green" "red" "blue" "yellow" 
> mode(name.x) 
[1] "character" 
ادخال ملف نصي واخراج قائمة‎ - 


> (x <- scan("http://www.ats.ucla.edu/stat/data/scan.txet", what = 
+ list (age = 0, 


+ name = ™"})) 
Read 4 records 
Sage 


[1] 12 24 35 20 


£name 
[1] "bobby" "kate" "david" "michael" 


Exporting data: تصدير البيانات‎ 5 
: الامثلة التالية توضح كتابة وخزن ملفات البيانات‎ 
> write.table(mydata,"C://data/mydata.txt", sep ="\t") 
> write.csv(dat.csv, file =path/to/save/filename.csv”) 
> write.table(dat.csv, file ="path/to/save/filename.txt", sep = 


"\t", na=".") 
> write.dta(dat.csv, file ="path/to/save/filename.dta") 
>  write.xlsx(dat.csv, file ="path/to/save/filename.xlsx", 


sheetName="hsb2") 
> save(dat.csv, dat.dta, dat.spss, dat.txt, file ="path/to/save/ 


filename.RData") 
oe رد‎ SF 


EX 


الفصل الخاهس : حفظ واستدعاء البياناءه 


امه سل الخامس | 


س1: ما هي النقاط التي يجب اخذها بنظر الاعتبار في استيراد البيانات بشكل 
س2: اذكر التعليمة البرمجية في ۸ لكل مما يلي : 

(1) للاطلاع على محتويات مساحة العمل من قيم وبيانات ؟ 

(3) لمعرفة المسار الذي تحصل فيه على النتائج ؟ 

)4( خزن قيم × ؟ 

(5) مسح x‏ من الذاكرة ؟ 

)6( تحميل × من الذاكرة ؟ 

(7) فتح نافذة بالملفات واختيار الملف من المجلد او القرص ؟ 

(8) عرض نافذة بحزم البيانات المتوفرة ؟ 

)9( عرض مجموعة البيانات في الحزمة lattice‏ ؟ 

(10) عرض جميع البيانات ؟ 

)11( عرض البيانات للاسطر الستة الاولى في mtcars‏ ؟ 

)12( عرض البيانات للاسطر العشرة الاخيرة في mtcars‏ * 
س3: ما الفرق بين ملف تنسيقه csv.‏ واخر txt.‏ ؟ اذكر مثال لكل منهم ؟ 
س4: ما الخيار الذي يعين كيفية فصل وحدات البيانات ؟ عدد اشكالها ؟ 
س5: وضح كل من : 

R Excel استيراد ملفات‎ (1) 

(2) استيراد البيانات من الانترنت 

(3) المسح الضوئي في استيراد البيانات 








الرسم البياني في R‏ 


6 مقدمة 

hist() الدالة‎ 6 

plot(...) الدالة‎ 6 

Subplots 6 

6 دالة المنحني curve‏ 

barplot الدالة‎ 6 

dotchart الدالة‎ 6 

Box plots الدالة‎ 6 

6 الرسوم المزدوجة pairs()‏ 

layout() دالة‎ 6 

Pie charts التخطیطات الدائرية‎ 6 

6 رسم الكثافة 

QQ رسم‎ 13.6 

Strip Chart 41% 14.6 

3D plot رسم ثلاثي الابعاد‎ 6 
Contour Plots 1.15.6 
image plots 2.15.6 
persp() 3.15.6 

اسئلة الفصل السادس 





الفسل الساحدس : الرسم البياني في R‏ 


6 مقدمة 

الرسم البياني هو تمثيل مرني لتوزیع البيانات. حيث ان شکل الرسم البياني هو 
السمة المفيدة والاکثر وضوحا فهو یسمح لك أن تری بسهولة حيث يقع على كمية 
كبيرة نسبیا من البيانات وحیث يوجد القلیل das‏ من البیانات التي يمكن العثور علیها. 
وبعبارة أخرى» يمكنك ان تری فیها منتصف توزیع البیانات ومدی قرب هذه البیانات 
حول هذا الوسط» Gus‏ يمكن العثور على القيم المتطر 44 الممکنة. ویسبب کل هذاء 
فالرسوم البيانية هي طريقة رائعة للتعرف على البيانات . وباختصارء فإن الرسم 
البياني ys‏ من المحور السيني X‏ والمحور الصادي ۷ ونقاط متعددة من 
فى البیانات. 
hist() 411) 6‏ 

الرسم البياني للبيانات الفئوية يمكن انشاؤها باستخدام دالة hist)‏ في لغة 
البرمجة ‏ تأخذ هذه الدالة في متجهات من القيم والتي يتم رسمها بيانياً. وان اسم 
مجموعه البیانات یوضع بين القوسین في هذه الدالف كما في الامثلة التالية : 
مثال : hist(AirPassengers)‏ 


Histogram of AirPassengers 




















شكل(1-6) الرسم البياني hist(AirPassengers)‏ 





2 صور‎ 9 f 1 بعد 3 طر 3 41 وسر بعة‎ R f AirPassengers 
: المخطط وكما فى الدالة التالية‎ 
hist(AirPassengers, main"=Histogram for Air Passengers «" 
xlab"=Passengers «"border"=blue «"col"=green 


xlim=c «(100,700)las «1 =breaks=5) 


EN 


MJ 








لغة البرمجة ‏ للحوسبة الأحصائية 


مثال : مجموعة بيانات 2170001107 والتي فيها القياسات اليومية لنوعية الهواء في 
نيويورك »مایو » وثائق سبتمبر R-1973‏ 

> str(airquality) 

'data.frame!: 153 obs. of 6 variables: 

$ Ozone : int 41 36 12 18 NA 2823 19 8 NA ... 

$ Solar.R: int 190 118 149 313 NA NA 299 99 19 194 ... 

$ Wind :num 7.48 12.6 11.5 14.3 14.9 8.6 13.8 20.1 8.6 ... 

$ Temp : int 67 72 74 62 56 66 65 59 61 69... 

$ Month : int 5555555555... 

$Day :int 12345678910... 

Temperature <- airquality$ Temp 

hist(Temperature) 


Histogram of Temperature (2 5 6 ) انظر الشكل‎ 





Frequency 
0 6 15 25 35 
۲-1-10 ا اساسا‎ REN 


شکل(2-6) HI‏ سم البياني hist(Temperature)-‏ 
كما ویمکن اضافة المعلمات للرسم حیث: 
0 تعطي العنوان 
0 و ylab‏ لتوفیر تسمیات المحاور 
0 و۷117 لتوفير مجموعة من المحاور 


col‏ لتحدید اللون 
Freg=FALSE‏ للحصول على التوزیع الاحتمالي بدلا من التردد . 
- الرسم مع اضافة المعلمات histogram with added parameters‏ # 


hist(Temperature,main="Maximum daily temperature at La 
Guardia Airport", xlab="Temperature in degrees Fahrenheit", 
xlim=c(50,100),col="darkmagenta", freq=> FALSE) 


الفسل الساحدس : الرسم البياني في R‏ 


Maximum daily temperature at La Guardia Airport (3 = 6) فى شكل‎ US 


8 
a 
o 


Density 


oN 
a 
o 





o 
o 
o 

50 60 70 80 90 100 


شكل )3-6( hist(temperature)‏ مع اضافة المعلمات 
القيم المعطاة لدالة hist)‏ : فهي تعطي قائمة ل6 مكونات ¿Sa‏ الاطلاع عليها 
بكتابة العبارات البرمجية التالية : 
h <- hist(Temperature)‏ > 
>h‏ 
دالة الرسم البياني بتحديد احداثيات المحور y‏ تكون AMS‏ : 
h <- hist(Temperature, ylim=c(0,40))‏ 
الدالة ادناه لوضع البيانات على الرسم: 
text(h$mids,h$counts,labels=h$counts, adj=c(0.5, -0.5))‏ 
انظر الشكل )4-6( 


Histogram of Temperature 





o 

7 23 34 
> 8 
5 9 20 
تس وه 8 چ‎ 
È o y J 12 

2 
o 
60 70 80 90 100 
Temperature 


فيما يلي اثنين من الرسوم البيانية لنفس البيانات مع عدد مختلف من الخلایا وذلك 
بزيادة عدد الفواصل من 4 الى 20 » انظر شكل (5-6) 
hist(Temperature, breaks=4, main="With breaks=4")‏ 
hist(Temperature, breaks=20, main="With breaks=20")‏ 


لغة البومجة R‏ للحوسية الأحصائية 


With breaks=4 With breaks=20 
o 
o N 
ديا‎ 
دي‎ 
3 _ 
5 5 So 
o o 
2 2 
LL Es LL ص‎ 
o 
TT TT T 1 TT 1 
50 60 70 80 90 60 70 80 90 
Temperature Temperature 


شكل )5-6( رسمين بعدد فواصل مختلفة 


: مثال‎ 
> X < 2112, 15, 13, 20, 14, 16, 10, 10, 8, 15) 
> hist (x) 
>hist(rnorm(100)) 
>hist(rnorm(100),breaks=50) 
plot(...) الدالة‎ 6 


وهي دالة التخطيط الاكثر استخداما في R‏ .فهي Alla‏ عامة لوجود العديد من 


بشكل مبعثر » وعلى سبيل المثال : التعبير : >plot(c(1,2),c(3,5))‏ 
يرسم النقطتين : (1,3) و(2,5) 
مثال (انظر الشكل6-6) : )10 >x <- seq(1,‏ 
y <- x**2-10* x E |‏ > 
ا plot(x, y)‏ > 














plot() شكل(6-6) رسم دالة‎ 
>X <- seq(-p1,p1,0.1) 
>plot(x, sin(x)) 


R الساحدس : الرسم البياني في‎ Jal 


>plot(x, sin(x),main="The Sine Function") 
. تغيير لون ونوع الرسم‎ - 
يمكننا أن نرى فيما سبق أن الرسم هو عبارة عن نقاط دائرية وسوداء اللون. هذا هو‎ 
الافتراضي. ويمكن تغيير نوع الرسم ولونه وفيما يلي كل الرموز الممكن استخدامها‎ 
والشكل الذي يرسمة:‎ 
تفا‎ Mp" 
خطوط‎ ۳ 
نقاط وخطوط معا‎ -"h" 
نقاط فار غة تربط بخطوط‎ -"0" 
دوائر صغيرة على نقاط الرسم وخطوط تصل بينها‎ -"0" 
خطوط درج‎ "S" yg" 
الخطوط العمودية مثل الرسم البياني‎ 0 
لا ترسم اي نقاط او خطوط‎ "n" 
col وبالمتل يمكن ان نحدد اللون باستخدام‎ 
>plot(x, sin(x),main="The Sine Function" ,‚ylab="sın(x)", 
type="1",col="blue") 
plot(v,u,type,colour) مثال‎ 
> v<-seq(-6,6,.2) # 0.2 خلق سلسلة من 6- الى 6 مع زيادة‎ 
> u<-sin(v) 
> plot(v,u,type='l',col='red') 
# plot u=sin(v) with a red line 1" 
تراكيب الرسومات‎ - 
تعطي في كل مرة رسم بياني في نفس الاطار ليحل محل‎ plot() عند استخدام دالة‎ 
الرسم السابق » وفي بعض الاحيان نحتاج الى وجود الرسمين معا ولنفس‎ 
lines() مع الدالة‎ E مقارنة النتائج “والذي اصبح‎ dal الاحدائيات من‎ 
: و 0010150 وكما في المثال التالي‎ 
>X <- seq(-p1,p1,0.1) 
>plot(x, sin(x),main="Overlaying Graphs", ylab= 
col="blue") 
>lines(x,cos(x),col="red") 


mm 


type="1", 


لغة البرمجة ‏ للحوسبة الأحصائية 


الدالة Jegend()‏ تضيف وسيلة ایضاح الى الرسم » حيث يحدد فيها موقع وسيلة 
الایضاح y‏ التسمية لخطوط الرسم واللون لکل cay‏ والمثال التالي یوضح AN‏ (انظر 








شکل(7-6) : 
legend(‘topleft",cC"sin(x)","cos(x)"),fill=cC"blue","red"))‏ 
Si‏ )7-6( اضافة وسيلة ايضاح 
Subplots 4.6‏ 


احياناً نحتاج الى وضع اثنين او اكثر من الرسوم البيانية في مكان واحد اي تقسيم 

N lalala ES Ll Rca a gr ll ls 

طريقة عرض الرسوم البيانية . دالة par)‏ تعرض لانحة طويلة من المعلمات 
dá pal,‏ عمل کل واحدة ¿Sas‏ مر deal‏ التعلیمات. 

>par() 

$xlog 

[1] FALSE 

$yaxt 

[1] "s" 

$ylbias 

[1] 0.2 

المعلمة الرسومية mfrow‏ يمكن استخدامها لتحديد subplotW) asc‏ التي نحتاجها ‏ 

فان c(m,n)‏ تقسم صفحة النتائج الى عدد من الرسوم وكما في المثال التالي(انظر 

الشكل (8-6): 
تعين منطقة الرسم الى 2*2 # par(mfrow=c(2,2))‏ 








الفسل الساحدس : الرسم البياني في R‏ 


> max,temp=c [22,27,26,294,23,26,28) 
> names (maz. temp) عت‎ ( "Sun", "Mun", "Tue", "Wen", "Thu", "Fri", ناوت‎ [ 
> MAK. temp 
sun Hun Tue Wen Thu Fri Sat 
22 27 26 24 23 26 28 
barplot(max.temp, main="Barplot") 
pie(max.temp, main="Piechart", radius=1) 


Barplot Piechart 


Mon 
Tue 


20 


15 


10 


o 


شكل(9-6) تقسيم صفحة النتائج 
ويمكن تحقيق هذه الظاهرة نفسها مع mfcol‏ بفرق هو الرسم في الاعمدة Y y‏ 
Lad‏ يلي ایعازات برسم 5 رسوم مختلفة في صفین وثلاث اعمدة : 
>Temperature >- ۷ Temp‏ 
>Ozone >- ۷ 6‏ 








>par(mfcol=c(2,3)) Im Mh 8 
>hist(Temperature) 0 Es pl 
>boxplot(Temperature, 3 0 ar 
horizontal=TRUE) anes) cama ا‎ 
>hist(Ozone) سب‎ = t 
>boxplot(Ozone, 
horizontal=TRUE) 
>plot(Ozone) 

شکل(9-6) ايعاز mfcol‏ 


لغة البرمبة ‏ للحوسية الأحصائية 


6 دالة المنحني curve‏ 
مثال: رسم دالة الجيب للفترة ]67 ,0] : 

> curve(expr = sin, from=0, to = 6 * pi) 
: (10-6) وفي مثال اخر انظر شكل‎ 


> curve(x**2 - 10% x, from = 1, to = 10) 


شكل )10-6( دالة curve‏ 

barplot الدالة‎ 6 

الدالة barplot()‏ تستخدم في ۸ للرسم الشريطي » نفترضء لدينا متجه من 
درجات الحرارة القصوى (في درجة مئوية) لمدة سبعة 
ایام على النحو e JUN‏ انظر شكل(11-6). i I I‏ 
e >max.temp <- c(22, 27, 26, 24, 23, 26, 28)‏ 
یمکن رسم شريطي من هذه البیانات : ۱ q‏ 

1 . >barplot(max.temp) 

ويمكن اضافة معلمات رسومية الى تلك الدالة في اعطاء ‏ شکل(11-6) دالة barplot‏ 
عنوان رئيسي وتسميات للمحاور وتسمية كل شريط بيانات في الرسم وتحديد اللون 
وحتى يمكن الرسم الافقي من خلال المعلمة horiz=TRUE‏ وفيما يلي مثال يوضح 
ذلك »انظر شكل (12-6): 


>barplot(max.temp,main="Maximum Temperatures in a Week", 














Maximum Temperatures in a Week 





horiz=TRUE تعليمة‎ (12-6) Si 
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Celsius”,ylab="Day", names.arg =c("Sun", "Mon", "Tue", 
"Wed", "Thu", "Fri", "Sat"), col="darkred" ,jhoriz=TRUE) 
المعطيات لكل شريط فعلى سبيل المثال : لدينا‎ ase لمعرفة‎ : table() الدالة‎ - 
>age <- c(17,18,18,17,18,19,18,16,18,18) 
لمعرفة عدد الطلاب في كل 448 عمرية‎ 

> table(age) 
age 
16 17 18 19 
1261 

(13-6) انظر شكل‎ table) والان نرسم عدد الطلاب لدالة‎ 
OE main="Age Count of 10 Students",xlab= 
"Age", ylab="Count", border= "red" , col="blue”, i 


density=10) 5 1 
a) | 


شكل(13-6) دالة table()‏ 

= الرسم مع المصفوفة: 
مثلا :مجموعة البيانات VADeaths‏ في R‏ يحتوي على معدلات الوفيات (عدد 
الوفيات لكل 1000 من السكان سنويا) في مختلف Glial)‏ السكانية Jala‏ ولاية 
فرجينيا في عام 1940. ويمكن رسم هذا بمثابة مخطط شريطيءانظر شكل (14-6): 

رحضري:111312,ريف:111121) 
VADeaths‏ > 
Rural Male Rural Female Urban Male Urban Female‏ 








0.1 13,3 .0 11,7 0-54 
13.6 4.3 م 11.7 18.1 be‏ با 
19,3 37.0 20.3 26.9 60-64 
37.1 94.0 20,3 41,0 65-69 
20,0 11.1 54 66.0 10-74 


لغة البرمجة ‏ للحوسبة الأحصائية 


> barplot(VADeaths, beside=TRUE, legend= TRUE, ylim=c(0, 
90), ylab= "Deaths per 1000",main="Death rates in Virginia") 

الاعمدة في الرسم تتوافق مع كل رقم في المصفوفة 

الايعاز TRUE=beside‏ يؤدي الى ان قيم كل عمود ترسم جنبا الى > جنب 

الايعاز legend= TRUE‏ يعني ان وسيلة الايضاح في اعلى اليمين ضیف المقياس 

العمودي من الرسم البياني »واخیر main Í‏ 2333 العنوان الرئيسي للرسم. 


Death rates in Virginia 


Deaths per 1000 





۱ كل )14-6( طف ار ¿Las‏ 
6 الداله dotchart‏ 


Rural Male Rural Female Urban Female 


> dotchart(’ VADeaths, xlim=c(0, 75), 
. + xlab="Deaths per 1000", 





+ main="Death rates in Virginia") 
- لأنه من الطبيعي أن ترغب في مقارنة إجمالي المعدل في الفئات‎ 
dotchart شكل(15-6 ( دالة‎ 


مثال: ولتصنيف مجاميع ملونة » انظر شكل (16-6) 
الترتيب === x >- mtcars[order(mtcars$mpg),] #mpg‏ > 
يجب ان يكون >x$cyl <- factor(x$cyl) # tHe‏ 
>x$color[x$cyl==4] <- "red"‏ 


>x$color[x$cyl==6] <- "blue" 
>x$color[x$cyl==8] <- "darkgreen" 
>dotchart(x$mpg,labels=row.names(x) cex=.7,groups= 


x$cylmain= "Gas Milage for Car Models\ngrouped by 
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cylinder", xlab="Miles Per Gallon", gcolor="black", color= 








x$color) 
R تعطي اسماء 657 من الالوان الموجودة في‎ colors() Alla وان‎ - 
شكل (16-6) رسم مجاميع ملونة‎ 
Box plots الداله‎ 6 
>attach(mtcars) ۰ مثال‎ soi 


> boxplot(wt,main="Boxplot of wt") 
من نمو عبر عاملين‎ Boxplot ظ > مثال : # حقق‎ 
لا ۱" # المربعات الملونة لسهولة التفسير‎ 
>boxplot(len~supp*dose,data=ToothGrowth, a 
notch=TRUE, boxpvlot Uh (17-6) شكل‎ 
col=(c("gold","darkgreen")), main="Tooth Growth", xlab= 
"Suppliment and hgfdhkhjDose") 


Tooth Growth 





LO 
co 


30 


25 


20 





OJO5 VC.0.5 OJ.1 VC.1 OJ.2 VC.2 


شكل )18-6( boxplot‏ بمربعات di glo‏ 
boxplot() alla -‏ تعطي قائمة من 6 عناصر عند كتابة العبارات البرمجية 
التالية : 








لغة البومجة R‏ للحوسية الأحصائية 


> b <- boxplot(airquality$Ozone) 
>b 
pairs() الرسوم المزدوجة‎ 6 
لرسم‎ e jara 11 e ala 32 مع‎ "mtcars" استخدمنا اطار البيانات‎ 
مجموعة من الخرائط لكل زوج ممكن من هذه البيانات في شكل رسم بياني مبعثر‎ 
يظهر التمثيل في محاور × وب‎ Ea زوج في مخطط متبادل الموقع‎ JS بحيث‎ 
يوضح الشكل التالي مثالا لناتج تنفيذ هذا القانون عند تطبيقه على اطار البيانات‎ 
انظر شکل(19-6)‎ « mtcars 


>pairs(mtcars) "o" 
[reo] Es] اج ام‎ lk] اه‎ BT | ١] ۱ ۷۱ eck £ 
SSE) تح زره‎ EEE E 
لیا‎ be) ۲۳۰ اقا‎ E كنا‎ Bel ۱۲ ۱۸1 EE a 
o eed 11 اقم‎ [o>] FEI? Al O O EE 
aA Fal EA اف‎ le) Pd E1 ] ۱۱ ٩۱۶۷ EE 
اه له‎ el ]هه او‎ ied ] 1 ۱ م ۱و۲‎ 
له اه لح لا 1۱۱ یا‎ ۳۰۱۱۱ ۱۱8۷ Ba ع‎ 
الس نما نا لعا لا لا ل لا لا لما ملد‎ - 
و سا اما تا لا لا لا لسا لت الما لطر‎ 
¿3 9 ES) E اتنا‎ E) (El ed ES] 
il ES AMA 


pairs() o (19-6) K& 


مثال : انشاء رسم بياني» انظر شکل )20-6( #< 
>attach(mtcars)‏ 
>plot(wt, mpg)‏ 
>abline(Im(mpg-wt))‏ 


>title("Regression of MPG on Weight") 


Regression of MPG on Weight 


mpg 











Weight s MPG مخطط بين‎ (20-6): i 
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layout() دالة‎ 6 

ولها الصيغة mat ua ۰ layout(mat)‏ هي کائن مصفوفة تحدد موقع عدد من 
Histogram of wt‏ الاشكال في au jil‏ »انظر شکل(21-6) 

. # الشكل الاول في الصف الاول والشكلين 

: في الصف الثاني 

>attach(mtcars ) = 

>layout(matrix(c(1,1,2,3), 2, 2, 5 

byrow = TRUE)) Histogram of mpg Histogram of disp 


q 
02 4 6 8 
IL | | J 


>hist(wt) 5: > 
stim) : N : nm. 


layout() U شكل(21-6)‎ 

6 التخطيطات )4141 Pie charts‏ 
التخطيطات الدائرية تعرض متجه من الأرقام بتقطيع قرص دائري إلى فطع 
حیث الزاوية (وبالتالي المنطقة) یتناسب مع كل عدد. علی سبیل المثال» الدرجات 
الکتروني المخصصة لفئة قد تنشأ في النسب. الذي يُرسم بایعازات R‏ التالية »انظر 

شکل (22-6): 

> 970117512765 <- c(18, 30, 32, 10, 10) 
> labels <- c("A", "B", "C", "D", "F") 
> pie(groupsizes, labels, col=c("grey40", "white", "grey", 
"black", "grey90")) 





شكل(22-6) تخطيطات دائرية 
مثال:البيانات التالية تحتوي على انهيار الإنفاق الشهري للفردءانظر شكل )22-6( 


> expenditure 


لغة البرمجة ‏ للحوسبة الأحصائية 


Housing Food Cloths Entertainment Other 


200 100 150 300 600 
الان نرسم مخطط دائري بسيط من هذه البيانات باستخدام دالة pie)‏ 

pie(expenditure) Housing 

y N 


Food 





Cloths ‘Entertainment 


Pie() Un (23-6) K& 

(24-6) JSS انظر‎ e يمكن اضافة معلمات اخرى تؤثر على الرسم وكما يلي‎ 
>pie(expenditure, labels=as.character (expenditure), main= 
"Monthly Expenditure Breakdown",col=c("red", "orange", 
"yellow" ,"blue","green"), border="brown", clockwise=TRUE) 


Monthly Expenditure Breakdown 


200 






100 


300 


شكل(24-6) دالة nie()‏ واضافه المعلمات 
6 رسم الكثافة 

في اوقات معینه قد لا تحتاج لرسم نقاط مجددة بل رسم كثافة النقاط ‏ ويتم ذلك 

: (25-6) وکما في المثال التالي» انظر شکل‎ smoothScatter باستخدام الامر‎ 
> numberWhite <- rhyper(30,4,5,3) 
> numberChipped <- rhyper(30,2,7,) 
>  smoothScatter(numberWhite,numberChipped+xlab="White 
+Marbles",ylab="Chipped Marbles" ,main="Drawing Marbles") 


112 ۱ 
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Drawing Marbles 


Chipped Marbles 





i 
0.0 1.3 1.0 1.3 #0 eo 43.0 
White Marbles 


smoothScatter شکل(25-6) الامر‎ 
۱ qq plot) QQ رسم‎ 6 
هي نوع من الرسم مبعثر يستخدم لمقارنة التوزیعات من مجموعتین او لمقارنه‎ 
عينة مع توزیع إشارة.في الحالة التي يكون فیها هناك مجموعتین متساوية في الحجم»‎ 
عن طريق الترتيب أولا » انظر شكل(26-6):‎ QQ يتم الحصول على الرسم‎ 
> X <- rnorm(1000); A <- rnorm(1000) 
> qqplot(X, A, main="A and X are the same") 
> B <- rnorm(1000, mean=3, sd=2) 
>qqplot(X,B,main="B is rescaled X"); C <- rt(1000, df=2) 
>qqplot(X, C, main="C has heavier tails")D=exp(rnorm (1000)) 
> qqplot(X, D, main="D is skewed to the right" 


C has heavier tails A and X are the same 


| Y 
-3 —1 12 3 


D is skewed to the right B is rescaled X 


=> 
١ o 
‘ P 
حا‎ = >. oo 
2 _ Y I o 
=1 1 2 3 —3 -1 12 3 
Xx x 


1 


Ç 
20 لا‎ 10 | 
6 
a Û Û 
A 
-3 1 1213 


3 1 
x 


0 5 10 15 20 25 
202 4 Û 4 


— 


qqplot() U (26-6) 4 


لغة البرمجة ‏ للحوسبة الأحصائية 


StripChart الدالة‎ 6 

R Ane pall في لغة‎ stripchart() انشاء مخطط شريطي باستخدام الدالة‎ Sa 
تأخذ هذه الدالة في المتجه الرقمي او قائمة المتجهات الرقمية »والمثال التالي نستخدم‎ 

:)27-6( البيانات اليومية لقياسات نوعية الهواء في نيويورك »انظر شكل‎ 
> str(airquality) 
'data.frame!: 153 obs. of 6 variables: 
$ Ozone : int 41 36 12 18 NA 28 23 19 8 NA... 
$ Solar.R: int 190 118 149 313 NA NA 299 99 19 194 ... 
٩ Wind :num 7.48 12.6 11.5 14.3 14.9 8.6 13.8 20.1 8.6 ... 
$ Temp : int 67 72 74 62 56 66 65 59 61 69... 
$ Month : int 5555555555... 
$Day :int 12345678910... 
>stripchart(airquality) 





0 50 100 150 


stripchart() Ws (27-6)‏ 
- يمكن رسم قائمة متجهات رقمية جنبا الى جنب للمقارنة» انظر شکل(28-6) 

>temp >- 0 
>temp_norm <- rnorm(200,mean=mean (temp, na.rm=TRUE), 
sd=sd(temp, na.rm= AY 
>X <- list("temp"=temp, "norm"= temp_norm) 

- وفيما يلي نرسم اثنين من Lee stripchart‏ وكما يلي» انظر شکل(28-6) 
>stripchart(x, main="Multiple stripchart for comparision",‏ 
xlab="Degree — Fahrenheit" ,ylab= "Temperature" ,method=‏ 
"jitter", col=c("orange”, ۳ we 0‏ 








۰ 220 8900 ¿e? bd | . . ۰ ۰ 
is ال و‎ tat ET يي‎ 
1 1 1 T T 


stripchartim شكل(25-6)اثنين‎ 


114 ۱ 
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6 رسم DU‏ الابعاد 3D plot‏ 
ih‏ في ثلاث متغيرات وهي × ye‏ 7۰ ۰ حیث ‏ و7 متجهان یحددان على 
المستوی اما الارتفاع فهو المتجه 7 والدي یتکون من مصفوفه للبعدین × و y‏ 
Contour Plots 1.15.6‏ 
R‏ لدیها اثنين من الدوال في رسم contour‏ و هي contour‏ و filled‏ ويمكن )425 
أمثلة على استخدامها من التعليمات البرمجية آدناه » انظر شکل(29-6): 
>x <- 1:50; y <- 1:70‏ 
>z <- matrix(expand.srid(x,y)$Varl*2+expand.grid(x,y)‏ 
>$Var2^2,50,70)‏ 
# الرسم >contour(x,y,Z)‏ 


0 30 40 50 60 70 





contour() دالة‎ (29-6)S * 
مستويات للرسم‎ # 
>mylevels <- seq(0,7500,500) 


70 Sr 


10 
Fi / j 1 
F: A / } f j 
> | 1 / / / j 
3- 





filled.contour شكل(30-6) دالة‎ 
>contour(x,y,z.levels=mylevels,xaxs=1',yaxs=1') 
# filled contours 
>filled.contour(x,y,z,color.palette=heat.colors) 
>filled.contour(x,y,z,col=grey(seq(0, 1,length=length(mylevels)) 
úl ما يحدث‎ og pi} اضافة هذه العبارة الى العبارات اعلاه‎ # 
>contour(x,y,z,levels=mylevels,add=T) 





لغة البرمبة ‏ للحوسية الأحصائية 


image plots 6 
>x <- y <- seq(-4*pi, 4*pi, len = 27) 
>r <- sqrt(outer(x*2, y*2, "+")) ; z <- cos(r42)*exp(-r/6) 
>image(z = z <- cos(r^2)*exp(-r/6), col = gray((0:32)/32)) 
>image(z, axes = FALSE, main = "Math can be beautiful ...", 
+ xlab = expression(cos(r^2) * e*{-1r/6})) 
>contour(z, add = TRUE, drawlabels = FALSE) 
انظر شکل(31-6):‎ e والمتمثلة بمصفوفة‎ GIS pall رسم لبيانات‎ # 
image(t(volcano)[ncol(volcano):1,]) 


bea 





Si‏ )1-6 3( رسم بيانات بركان 

: وفي عرض اخر للبركان من العبارات البرمجية التالية »انظر شكل(32-6)‎ # 
x <- 10*(1:nrow(volcano)) : y <- 10*(1:ncol(volcano)) 
image(x, y, volcano, col = terrain.colors(100), axes = FALSE) 
contour(x, y, volcano, levels = seq(90, 200, by = 5), 

add = TRUE, col = "peru") 
axis(1, at = seq(100, 800, by = 100)) axis(2, at = seq(100, 600, 
by = 100)) box() 

title(main = "Maunga Whau Volcano", font.main = 4) 


Maunga Whau Volcano 


شكل )32-6( رسم بركان بشكل اجمل 
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m = matrix(runif(100),10,10); image(m) مثال اخر:‎ 
persp() 3.15.6 
: في المثال التالي‎ LS y x-y هذه الدالة ترسم قطع السطوح فوق مستوی‎ 
>x <- seq(-10, 10, length= 30) :۷ <- x 
>f <- function(x,y) { r <- sqrt(x42+y 42); 10 * sin(r)/r | 
>Z <- outer(x, y, f) 
>z[is.na(z)| <- 1 
>persp (x, y, z, aspect=c(1, 1, 0.5), col = "lightblue",xlab = "X", 
ylab = "Y", zlab = "Sinc( r )") 


persp() دالة‎ (33-6) Ks 





(34-6) SSE يمكن الحصول على رسم مخروط دائري قائم من الدالة التاليةء انظر‎ 
مثال:‎ 
cone <- function(x, y){ sqrt(x42+y22) | i 
x <- y <- seq(-1, 1, length= 20) 
7 <- outer(x, y, cone) 
persp(x, y, Z) 





)346( رسم مخ روطي قائم 


E E 





لغة البرمجة ‏ للحوسبة الأحصائية 


Fre 


(1) histO 
(2) plot() 
(3) lines() 11) pairs() 


(4) legend() 12) layout() 
(13) piel) (14) 0001000 | (15) stripchart() 
(16) image() | (17) perspO 


س3: ما استخدام المعلمات التالية للرسم في -R‏ 
ylim (9) mfcol‏ (5) 
xlab (6) col 10) horiz‏ )2( 








(3) ylab (7) freq=FALSE |11) border 
(4) xlim | (8) mfrow 2 


س4: الدالة hist()‏ تعطي قائمة ل6 مکونات ؟عددها فقط ؟ 
س5: اجب عن ما يلي: 
alla (1)‏ الرسم البياني لتحديد احداثيات المحور ۷ ؟ 
(2) دالة وضع البيانات على الرسم ؟ 
Alla )3(‏ تضيف مخطط اخر ولنفس الاحدائیات الى رسم سابق ؟ 
(5) دالة تقسم مساحة الرسم ليستوعب اكثر من رسم بياني ؟ 
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س6: Le!‏ مثال لكل مما يلي : 


)1( رسم دالة الجبب للمدى بين 


des رسم‎ (5) 


بين pi-‏ الى pi‏ 
fing 2 (2)‏ سم ما state‏ اح مساح اس 
(3) لنفس الا حداتیات 





Ob [Oss| 


الدالة boxplot()‏ تعطي قائمة من 6 عناصر ؟ عددها 


س8 : 
س9 : 


Arrow 


HorizArea Bubble 


Contour WaterFall ColorGrid 
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7 عبارة if...else‏ 
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الفصل السابع : البرمبة في R‏ 


7 مقدمه 

اهم نقاط الجذب الرئيسية في استخدام بيئة البرمجة R‏ هو السهولة التي يمكن 
في سهولة التعلم » حتى بالنسبة للمستخدمين اللذين ليس لديهم خبرة سابقة في 
البرمجة . 
وان واحدة من الامور الاساسية في برمجة 12 هو الوضوح والسهولة في مراقبة 
هیکل البرنامج a US,‏ ات ا ی 


7 عبارات البرمجه في R‏ 

لغة البرمجة ۸ مثل اي لغة برمجة اخری تمتلك عبارات برمجیة خاصة 
تستخدم لحل مشكلة ما وتحاكي الحاسب لتحصل على النتائج وفیما يلي عبارات 
البرمجة المستعملة في لغة R‏ وبناء الجملة والمخطط لكل عبارة 


7 عبارات "11 

اتخاد القرار هو جزء مهم من البرمجة. ويمكن تحقيق ذلك في البرمجة باستخدام 
R‏ »وفیما يلي توضيح لعبارات IF‏ : 
77 عبارة if statement if‏ 

وهي تعبير منطقي يليه بيانات واحدة او اكثر 
- بناء جملة 11 
if (test_expression) 1‏ 
Statement‏ 


إذا كان test_expression‏ هو صحیح» يحصل تنفيذ العبارة. ولكن ادا كان 
خطأء لا يحدث أي شيء. lia‏ يمكن ان يكون test expression‏ متجه منطقي أو 
رقمي» ولكن يؤخذ فقط العنصر الأول في الاعتبار. وفيما يلي مخطط يوضح هيكل 
تلك العبارة: 


dz‏ البرحجة R‏ للحوسبة الأحصائية 





11 مخطط لعبارة‎ 
> if(1=0) 4 ۰ مثال‎ - 
+ print (1) 
+ } else 1 
+ print (2) 
+ } 
[1] 2 ۲ 

Nes 2 

x<-5 
if(x > 0)! 


print(" Positive number") 


j 


[1] “Positive number" 


7 عبارة if...else‏ 
وهي عبارة 16 يليها عبارة else‏ والتي تنفذ عند تعبير منطقي غير صحيح 
- بناء جملة if...else‏ 
if (test_expression) 1‏ 
statement]‏ 
else {‏ ( 
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statement2 


j 
ما‎ Ady هو صحيح»‎ (test_expression) التقييم اذا‎ aisg « اختياري‎ else الجزء‎ 
يجب ان يكون في‎ else بعده والموجود بين الاقواس ()۰ ومن المهم ان نلاحظ ان‎ 
Us والذي ينفذ ما بعده عندما يعون التعبير‎ if نفس خط القوس المغلق لعبارة‎ 
if...else مخطط عبارة‎ - 


else عبارة‎ 





x <- -5‏ 
if(x > O){‏ 
print("Non-negative number")‏ 
else {‏ ( 
print( Negative number")‏ 
j‏ 
"Negative number"‏ ]1[ 
يمكن ان يُكتب الشرط اعلاه في سطر واحد وكما يلي: 
print("Non-negative number") ۰ Negative‏ )0 > 110 
number”)‏ 
هذه الميزة من R‏ تسمح لنا بكتابة عبارات البرمجة كما هو مبين REN‏ 
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< > 
> y <- 11): > 0) 5 else 6 
> y 
[1] 6 
4 ا‎ | x>8, x, 0) Sis - 


[1] 1 2 3 4 0 0 0 0 8 10 


> even.odd = function(x) { مثال‎ - 
+ if (lis.numeric(x)) { 

+ print("neither") | 

+ else if (x%%2 == 0) { 

+ print(">53") } 

+ else { 

+ print(" 22°") 

+ hf 

> even.odd(3) 

[1] "odd" 

> even.odd(4) 

[1] "even" 

> even.odd("A") 

[1] “neither” 

Or in other way: 

>a=c(5,7,2,9) 

> ifelse(a %% 2 == 0, “even”, odd") 
[1] "odd" "odd" "even" "odd" 
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7 عبارة if. ..else‏ المتداخلة 
یمکن تداخل are‏ من عبارات if. else‏ كما de y‏ النحو التالی: 
cli -‏ جملة if. else‏ المتداخلة 
if ) test_expressionl) {‏ 
statement]‏ 
j else if ( test_expression2) {‏ 
statement2‏ 
j else if ( test_expression3) {‏ 
statement3‏ 
else‏ + 
statement4‏ 
فقط جملة واحدة سوف تنفذ اعتمادا على test_expressions‏ 
مثال 
x <- 0‏ 
if (x <Q) {‏ 
print("Negative number")‏ 
else if (x > 0) {‏ [ 
print(" Positive number")‏ 
else‏ + 
print(" Zero")‏ 
"Zero"‏ ]1[ 
مثال 
EXE <- 3‏ > 
(E > 2) y <- 2 Y x else y <- 3 * Z‏ 11 > 
¥ > 
6 ]1[ 
E=1‏ > 
(E > 2) y 4 2 Y x else y <- 3 * =‏ 11 > 
¥ > 
3 ]1[ 


127 | 


dz‏ البرحجة R‏ للحوسبة الأحصائية 


مثال 
ابر حي + 
دحا b=3 else‏ ( 92-1 11 > 
b‏ > 
[i] 5‏ 
7 الحلقات Loops‏ 
ان الاكثر le gut‏ في استخدام هياكل الحلقات في R‏ هو عبارتي البرمجة for‏ 
whiles‏ ۰ اما الاقل le gå‏ هو عبارة repeat‏ « وان عبارة break‏ تستخدم 
للخروج من الحلقة 
7 عبارة for‏ 
cli -‏ جملة for‏ 
for (variable in sequence) 1‏ 
Statements‏ 
j‏ 
هناء sequence‏ هو متجه variables‏ يأخذ في كل مرة قيمته خلال الحلقة. 
- مخطط للحلقة for‏ 


الخروج من 
الحلقه 





- مثال : فيما يلي مثال لحساب Jac‏ الارقام الزوجية في المتجه التالي: 
x <- c(2,5,3,9,8,11,6)‏ 
count <- 0‏ 
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for (val in x) {‏ 
if(val %% 2 == 0) count = count+1‏ 
j‏ 
print(count)‏ 
3 ]1[ 
في المثال اعلاه لدينا 7 ارقام في التجه × » Gaal‏ المتغير count‏ ليكون dae‏ 
لحساب عدد الارقام الزوجية باختبار باقي القسمة على 2 اذا كان الناتج صفر فالعدد 
هو رقم زوجي »وبدلك اصبح الناتج 3. 
- مثال 
x <- 1:10‏ 
NULL‏ -< 7 
in seq(along=x)) {‏ 10101 
{ )5 < [11):]1 
c(Z, X[1] - 1)‏ -< 7 
else {‏ } 
c(z, X[1] / x[1])‏ -< 7 
j‏ 
j‏ 


Z 
[1]0123111111 

e 
> for (x in 1:3) 1 
(print(x + 
+ } 
[1] 1 
[1] 2 
[1] 3 

مثال 

> for (x in c("hello", "goodbye")) { 
+ print(x) 
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+) 
[1] "hello" 
[1] "goodbye" 
مثال‎ 
> m = matrix(1:4, nrow = 2, ncol = 2) 
> for (x in m) print(x) 
[1] 1 
[1] 2 
[1] 3 
[1] 4 


مثال : على متتالية فيبوناتشي Fibonacci sequence‏ 

Fn — Fasi + Pao, 
Fo = ١ و‎ F; = 1 
> F=numeric{10) 
> F[1]=F[2]=1 
> for(i in 3:10)F[i]=F[i-1]+F[i-2] 
> F 

[1] 1 1 2 3 5 8 13 21 34 55 


مثال : الدالة التالية تقوم على al e sieve of Eratosthenes‏ اسلوب منهجي 
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> Eratosthenes 
function(n) { 
f Return all prime numbers up to n (based on the sieve of Eratosthenes) 
if {in >= 2) ( 
sieve <- 3eq(2, n) 
primes <- ef) 
for {i in seq(2, n)) 4 
if {any (sieve == 1)) { 
primes <- c(primes, i) 
sieve <- c(sieve[ (sieve 4% i) '= 0], 1) 
} 
} 
return (primes) 
} else { 
stop ("Input value of n should be at least 2.”) 
} 
} 
> Eratosthenes (50) 
[i] 2 3 5 7111317 19 23 29 31 37 41 43 47 
> Eratosthenes {-50) 
Error in Eratosthenes (-50) : Input value of n should be at least 2. 
> Eratosthenes (100) 


(11 2 3 5 711 13 17 13 23 29 31 37 41 43 47 53 59 61 67 71 73 79 63 69 97 
-l 


7 عبارة while‏ 
وهي على غرار حلقة for‏ « لكن يتم التحكم في التكرار من قبل عبارة شرطية : 
- بناء جملة حلقة while‏ 


while (test_expression) { 
Statement 


هناء پنم تفییم test_expression‏ فادا كانت النتيجة صحيحة پنم تنفيذ التعليمات 


داخل الحلقة ويستمر a‏ التعبير حتى تصبح النتيجة خاطئة e‏ في هذه الحالف يتم 
انهاء الحلقة 
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- مخطط لحلقة while‏ 


الخروج من 
Price‏ 





1<- 1 
while )1 > 6) { 
print(1) 
1<- 1+1 

j 

[1] 1 

[1] 2 

[1] 3 

[1] 4 

1]5[ 
في المثال اعلاه» يتم تهيئة 1 إلى 1. وهنا test_expression‏ هو 6> 1 الذي 
يقيم صحيح كلما 1 هو أقل من 6. لذاء تم تنفيذ داخل الحلقة وطباعتها وتستمر الحلقة 
حتى 1 يأخذ قيمة 6. فيصبح الشرط 6 <6 وهذا يعطي النتيجة خطأ ويتم الخروج 

من الحلقة . 

مثال 
>x= |‏ 
while (x < 3) {‏ > 
print(x)‏ + 
[ +ع < ير + 
} + 
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1 [1] 
2 ]1[ 
مثال : طريقة نيوتن لايجاد الجذر 
وهي طريق شعبية لايجاد جذور معادلة جبرية 
f (x) =0‏ 


المذکورة اعلاه اذا قريبة بما فیه الكفاية إل الجذر 


x,‏ = نخمین اولي 





وتعتمد الفکرة على تقریب تایلور 
J (xn) ~ f (xn—-1) + (xn — xn-1) f'(xn-1).‏ 


مثلا : لنفترض 7 - f(x) = ×3 + 2x2‏ ثم اذا x,‏ قريبة بما فيه الكفاية لواحد من 
¿dal jo ob‏ 

ey E 7 

mM MIT AR 

> Z0=2 

> x <- نا‎ 

1 4 x**3 + 2 * x**2 - 7 

tolerance <- 0.000001 

while {abs (f) > tolerance) { 

f.prime <- 3 * x**2 + 4 * x 

<- X ار £ تس‎ £.prime 

“- EH**3 + 2 * x**2 — 7 


Hi (4‏ سب ين 


> 
> 
> 
4 
- 
- 
۳ 
> 

| 


1] 1.428818 


dz‏ البرحجة R‏ للحوسبة الأحصائية 


f (x) =x-cos(x) مثال : ليكن‎ 
> XO=1 
> XA=XÚ0 
> ÍÉ=xX-COS(x) 
> tol=0.000001 
> while (abs (£)>tol) ۱1 ء‎ ۱-۱ -+5 111 (=) 
+ x=x-f/f.p 
+ 1-12-2055 (=z) } 
> xX 
[1] 0.7390852 


77 عباره break‏ 
في البرمجة R‏ سلسلة الحلقات الطبيعية يمكن تغييرها باستخدام break‏ . 


الدخول 


مخطط عبارة break‏ 





الخروج من 
431311 


تخدم عبارة break‏ داخل حلقة لوقف تكرار وتدفق حالة الحلقة. 


x <- 1:5 : مثال‎ 
for (val in x) { 
if (val == 3){ 
break 
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j 
print(val) 
j 
[1] 1 
[1] 2 
من 1 الى 5ءداخل الحلقة يوجد شرط‎ x في المثال اعلاه التكرار لاعداد المتجه‎ 


7 عبارة Repeat‏ 
يعطي حلقة لانهائية من التكرار الا في حالة استخدام العبارة break‏ ۰ وهذا 
يعني ان هناك حاجة الى عبارة ثانية لاختبار ما اذا كان او لم يكن لإيقاف التكرار 

وفيما يلي بناء الجملة البرمجية : 
- مخطط الجملة Repeat‏ 
repeat 1‏ 
Statements‏ 


j 





- مثال 
x <- 1‏ 
repeat {‏ 
print(x)‏ 
x = +1‏ 
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if (x == 6){ 
break 

j 
j 

[1] 1 
[1] 2 
[1] 3 
[1] 4 
[1] 5 

في المثال code!‏ وقد استخدمنا شرطا للتحقق والخروج من حلقة عندما x‏ 

يأخذ قيمة 6. وبهذا سيكون الناتج فقط 5-1 مطبوع. 


- مثال 
0 -> 7 
repeat {‏ 
[ + 7 -> ,7 
print(z)‏ 
if(z > 100) break()‏ 
j‏ 
7 عبارة next‏ 
مفيد عندما نريد تخطي التكرار الحالي E‏ 
للحلقة دون انهائها. 
- مخطط عبارة next‏ 


الخروج من 
الحلقة 
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for (val in x) { 

if (val == 3){ 

next 

} 

print(val) 
} 
[1] 1 
[1] 2 
[1] 4 
[1] 5 
داخل شرط للتحقق مما إذا كانت القيمة‎ next في المثال أعلاه نستخدم العبارة‎ 
next يتم طباعة قيمة) ولكن تستمر حلقة التكرار‎ al) تساوي 3 يتوقف التقييم الحالي‎ 


7 عبارة switch‏ ۱ 
لها تعبير وارجاع قيمة في قائمة اعتمادأ على قيمة التعبير» وهذا يعتمد على نوع 
- بناء الجملة الاساسي هو : 
switch(statement, item1,item2,item3,...,itemN)‏ 
اذا كان نتيجة التعبير هي رقم ثم تقوم بارجاع العنصر في القائمة مع نفس المؤشر . 
Js -‏ 
x <- as.integer(2)‏ > 
>X‏ 
2 ]1[ 
switch(x,1,2,3,4,5)‏ = 7 > 
>Z‏ 
2 ]1[ 
>x<-3.5‏ 
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> 7 = switch(x,1,2,3,4,5) 

>Z 

[1] 3 

> ford in c(-1:3, 9)) print(switch(i, 1, 2 , 3, 4)) 
NULL 

NULL 

[1] 1 

[1] 2 

[1] 3 

NULL 


7 الدوال Functions‏ 
تقوم بوظيفة معينة او محددة ومن فوائد الدوال functions‏ هو تصغير الكود 
البرمجي والتخلص من تكرار بعض المهام التي تتكرر باستمرارء وكذلك توجد 

إمكانية إنشاء دوال تؤدي وظيفة خاصة 
- بناء الجملة function‏ 
Function_name<-functions(arg1,arg2,....){‏ 
Function —body‏ 


القيمة التي تم ارجاعها بواسطة function‏ هي 444 sills Function -body‏ 

عادة ما يكون تعبير نهاني غير معين » return() : Mis‏ 
- مثال 

(1)> square = function(x) { return(x’2) } 

> square(5) 

[1] 25 

> square(1:5) 

[1] 1 4 9 16 5 


(2)>a=1:10 
>a2 
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>sum(a’2) 
>Fet<-function(x)[sum(x42) } 
>Fct(1:5) 


(3)> cube = function(x) 3 
> cube(2) 

[1]8 

> cube(1:5) 

[1] 1 8 27 64 125 


* (two parameter) 
(4)>fct<-function(x,y){ 
>res<-x*2+y 

>res } 

>fct(2,1) 


(5)> pow = function(x, y = 2) x4y 
> pow(2) 

[1] 4 

> pow(2, 4) 

[1] 16 

> pow(y= 4,2) 

[1] 16 

> pow(y =3, x = 3) 

[1] 27 


(6) f.bad <- function(x, y) { 
71 <- 2*x + y 

Z2 <- X + ۷ 

Z3 <- 2*x + ۷ 
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74 <- x/y} 
f.bad(1, 2) 
[1] 0.5 


(7) 1.5000 <- function(x, y) { 
zl <- 2%x + y 

Z2 <- X + ۷ 

Z3 <- 2*x + ۷ 

74 >- ۷ 

return(c(zl, Z2, Z3, z4))} 
f.good(1, 2) 

571 : 

[1] 4 

$22: 

[1] 5 

$23: 

[1] 6 

$z4: 

[1] 0.5 


(8) f2 <- function(x, y) { 
71 >- + 17 
Z2 <- X + ۷ 
list(z1, z2) } 

f2(2, 5) 

[[1]]: 

[1] 7 

[[2]]: 

[1] 12 

f2(2, DILJ] 
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[1] 7 

2(2, S)[[2]] 
[2] 12 

f2(2, 1 
NULL 


(9) 13 <- function(x, y) { 
71 >- + ا‎ 
Z2 <- X + ۷ 
list(resultl=z1, result2=z2) } 

f3(2, 5) 

$resultl: 

[1]7 

$result2: 

[1] 12 

f3(2, 5)$result1 

[1]7 

f3(2, 5)$result2 

[1] 12 


(10) y <- f3(1, 4) 
names(y) 

[1] "resultl" "result2" 
y$result2 

[1] 9 

y[12]] 

[1] 9 

#Using vectors 


(11) vl <- seq(1:5) 
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vl 

]1[ 1 2 3 4 5 6 

v2 >- seq(2, 12, 2) 
v2 

[1] 2 4 6 81012 
f3(vl, v2) 

$resultl: 

[1] 36 9121518 
Sresult2: 

[1] 5 10 15 20 25 30 
#Using matrices 


(12) matl <- matrix( c(1, 2, 3, 4, 5, 6), ncol=2) 
matl 
[,1] [,2] 
[1] 1 4 
[2] 2 5 
[3] 3 6 
mat2 <- matrix(c(2, 4, 6, 8, 10, 12), ncol = 2) 
mat2 
[,1] [,2] 
[1] 2 8 
[2] 4 10 
[3,] 6 2 
f3(matl, mat2) 
$resultl: 
[,1] 1,2] 
[1,] 3 12 
[2,] 6 15 
[3,] 9 18 
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Sresult2: 
[,1] [,2] 
[LJ] 5 20 
[2,] 10 25 
[3,] 15 30 


(13) f4 <- function(x=3, y=2) { 
71 >- + ا‎ 
Z2 <- X + ۷ 
list(resultl=z1, result2=z2) 

j 

f4() 

$resultl: 

[1] 5 

$result2: 

[1] 7 

f4(1, )Sresultl 

[1] 3 

f4(x=1)$result1 

[1] 3 

f4(, 1)$result1 

[1] 4 

f4(y=1)Sresultl 

[1] 4 

f4(y = 1, x = 2)$result2 

[1] 4 

امثلة باستخدام الحلقة AAA‏ 

(1) 10101 in c(1, 3, 6, 9)) { 

7>-1+ [ 


۱ 
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7 
10 ]1[ 
باستخدام عبارة الطباعة لرؤية النتيجة في كل تكررا # 
for in 3:5) {‏ 
[ +1->7 
print(z)‏ 
j‏ 
4 ]1[ 
5 ]1[ 
6 ]1[ 


(2) 15 <- function(x) { 
for(i in 1:x) { 
y <- 1*2 
print(y) } 
return(y*2) } 
f5(3) 
[1] 2 
[1] 4 
[1] 6 
[1] 12 


(3) names] <- c("Dave", "John", "Ann", "Roger", "Bill", 
"Kathy") 
f.names <- function(x) { 
for(name in x){ 
1f(name=="Roger”) 
break 
print(name) } 


الفصل السابع : البرمبة في R‏ 


f.names(namesl) 
[1] "Dave" 
[1] "John" 
[1] "Ann" 
While باستخدام حلقه‎ 
(1) 16 <- function(x) { 
1<- 0 
while(1 > x) { 
1 <- 1+1 
y <- 2 
print(y) ( 
return(y*2) } 
f6(3) 
[1] 2 
[1] 4 
[1] 6 
[1] 12 


(2) names] <- c("Dave", "John", "Ann", "Roger", "Bill", 
"Kathy”) 
f.names.while <- function(x) 1 
1 >- | 
while( x[1] != "Roger"){ 
print(x[1]) 
1 <- 1+1 
} 
} 
f.names.while(names 1) 
[1] "Dave" 
[1] "John" 
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[1] "Ann" 
: repeat باستخدام حلقة‎ 
(1) names] <- c("Dave", "John", "Ann", "Roger", "Bill", 
"Kathy”) 
f.names.repeat <- function(x) { 
1<- | 
repeat 1 
print(x[1]) 
1 <- 1+1 
if(x[i] == "Roger") 
break 
j 
j 


f.names.repeat(names]) 
[1] "Dave" 
[1] "John" 
[1] "Ann" 


(2) random.samplel <- function(epsilon) { 
1>- 0 
repeat 1 
1 < 1+1 
mean.test <- abs( mean( rnorm(100) ( ) 
if (mean.test < epsilon ) 
break 
j 


list(mean=mean.test, number.iterations=1) 


j 
random.sample1(0.0001) 


$mean: 


الفصل السايع : البرمبة في R‏ 


[1] ]|]|] 87 
$number.iterations: 


[1] 6033 
y.plot(x, y) 
:مثال‎ 


> a="Hello"” 

> b="world !" 

> a+b 

Error in a+ b : non-numeric argument to binary operator 
> '$fcett'<¢-function (E, Y) {paste (X, y seq-”"”) [ 

> aticttb 

[1] "Hello world ! * 

> concat<-function (=z, Yy) {paste (X, Y, seq="") } 

> concat (a,b) 

[1] "Hello world ۲ * 


7 دوال اخرى 

)1( دالة paste()‏ : نستخدم للجمع بين عدد من السلاسل في R‏ 

مثال : بجع احج > 
b='gg'‏ > 
c='hh'‏ > 

> paste (a,b,c) 

[1] "ff gg hh” 


)2( دالة format()‏ : تستخدم لتنسيق ala yy!‏ و السلاسل بنمط معين 
مثال : 
Format ) 23 . 123455789, digits = 5)‏ > 
"23.123" ]1[ 
Tormat (9)‏ > 
"9" ]1[ 
)3( دالة nchar()‏ : نستخدم لحساب عدد الرموز وبضمنها الفر ۶۱ في السلسلة 
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لغة البرمجة R‏ للحوسية الأحصائية 


: مثال‎ 
> nchar ("university of Basrah") 
[1] 20 
تستخدم أطباعة النتائج على الشاشة‎ : Print() دالة‎ (4) 
>print(3+4) : مثال‎ 
: مثال‎ 
> for(1 in 1:3) print(1:1) 
[1] 1 
[1] 1 2 
[1] 1 2 3 


مثال : ممكن الحصول على الناتج بشكل مبسط ومباشر بدون عبارة الطباعة كما 
يلي: 


+. 














> tl <- roundlabs (rt (200, df = 1.8))) 
> t2 <- round {abş (rt {200, dË = 1.4))) 
> table(t1, t2) $ simple 
| 
t1 0 1 2 3 4 5 6 7 10 11 20 21 
oO 27 28 9 3 Z 1 1 0 0 1 1 0 1 
1 2626 7 4 3 1 0 3 0 0 2 1 0 
2 98 13 5 0 3 1 0 1 لا‎ 0 0 0 0 
3 2 4 1 0 0 1 0 0 0 0 0 0 0 
4 O 1 0 0 0 0 0 0 0 0 0 0 O 
5 1 O 0 0 0 0 0 O 0 0 لا‎ O 0 
6 1 606 O0 1 O0 0 0 0 0 0 0 0 0 
7 OO 2 9 0 0 9 9 لا لا لا‎ O O 
8 لا‎ O O0 لا‎ 9 0 9 9 1 0 0 O O 
g لا‎ 1 0 0 0 0 9 O 9 0 0 O O 
11 1 0 0 0 0 0 0 A 0 0 0 0 Q 
13 1 0 0 0 0 0 0 A 0 0 لا‎ A Q 
15 1 0 0 0 0 0 0 0 0 0 0 O O 
2 1 O 0 0 0 0 0 0 O ۲ 0 0 0 
1 O 0 9 0 0 0 O D o لا‎ 0 
: اما في حالة التحكم في شكل النتائج و الول کے شور جمل لقرانتها كما يلي‎ 


الفصل السايع : البرمبة في R‏ 


> print (table (tl, t2}, zero.print = "."( 


t2 
t1 0 1 2 3 4 5 © 7 8 10 11 20 21 
O 2726 9 3 2 1 1 . Ss E LL p 4 
1 26 26 7 4 3 1 J a = م‎ 1 
2 ا‎ 13 Y 3 1 L «4 
3 Z¿ 4 1 3 4 . 
4 1 ۲ 
5 L à 5 á 
6 E x 4 : 
7 =. E á 
3 a . 1 
g 1 .: 
11 i 


j 
in 
و قم قم قم قم‎ ٠. 


RStudio 7‏ 
یعتبر RStudio‏ واجهة بديلة ل Gus R‏ يمكن تثبيت RStudio‏ كتطبيق سطح 
المكتب أو كتطبيق الخادم الذي هو في متناول الاخرین عبر الانترنت. فهو مفتوح 

المصدر (اي مجانا) ومتاح من الموقع http://www.rstudio.org‏ . 

0 بقدم واجهة احسن لبرنامج ۸ فهو بيئة التطوير المتكاملة ( IDE‏ / 
(Integrated development environmen‏ وتطبيق البرمجيات التي توفر 
مرافق شاملة لمبرمجي الكمبيوتر لتطوير البرمجيات. 5 IDE‏ يتكون عادة من محرر 
شفرة المصدر» وبناء آدوات AA‏ ومصحح. 

يمكنك استخدام R‏ دون RStudio‏ باستخدام أي محرر لكتابة البرامج النصية. 
ولكن RStudio‏ في as‏ داته ليس من المفيد جدا دون R‏ .وهو البرنامج المكتوب في 
لغة البرمجة C++‏ . 

0 هو الواجهة Gilly RA‏ يجعل استخدام ۸ أجمل كثيرا LS‏ يضيف 
بعض المکونات السهله الاستخدام حیث بتیح لك الکثیر من الحزم بسهولة ,کما پو فر 
الوصول الى ۸ في متصفح الویب » وفي Alle‏ تشغیل برنامج RStudio‏ تظهر 
لشاشة LS‏ في شکل )1-7( وهي مقسمة الى اربعة نوافد وان في کل نافدة عدة 
تبویبات: 


لغة البرمجة R‏ للحوسبة الأحصائية 








E Rstudio = ku سک‎ 
File Edit Code View Plots Session Build Debug Tools Help 
9 uf => x; 6 a 1 Project: (None) + 
©5 Untitled1* ©3 Untitled1* | data2 | data1 7 Environment History af 
۳ Source on Save | © for)! E - ميم‎ | [8% | [Source ~| < ED | import Dataset» | | @ Gridr 
1 h=3 ©) Global Environment» 
2 b=4 = - 
3 c=atb Name & Type Length Size Value 
a c PF] datal data.frame 9 1.3 KB 12 obs. of 9 variables 
5 data2 data.frame 1 640 B 1 obs. of 1 variable 3 
F m numeric 6 72 B num [1:6] 1 2 3 4 5 6 
F| mm matrix 6 160 8 num [1:3, 1:2] 1 2 3 4 5. 
Files Plots Packages Help Viewer fe 
1:1 (Top Level) + R Script + 
Ol instal @ Update 
Console سس‎ ][ Name Description Version 
ur: unexpected symbol in A A ^ | | User Library + 
> ۰ ۰ ۰ ۰ ۰ ۰ ۰ ۰ . ۰ ۰ ۰ 
Error: unexpected symbol in "8 a ۳[ acc Processes Accelerometer Data 117 
> 9 A e E = BiasedUrn Biased Urn model distributions 1.06.1 
Error: unexpected symbol in "9 — - 
ean “es a بت‎ yes a A EJ epiR Tools for the Analysis of Epidemiological Data 0.9-69 
Error: unexpected numeric constant in "11 1" mhsmm Inference for Hidden Markov and Semi-Markov Models 0.4.14 
>13 1.» s w a اه‎ wm oe ف اشر‎ — 
Error: unexpected numeric constant in "13 1" EF] ۸ Multivariate Normal and t Distributions 1.0-3 
ge i: ee A ار‎ COR و کر زر مس‎ PhysicalActivity Process Physical Activity Accelerometer Data 01-1 
Error: unexpected numeric constant in "15 1" o., e = 
SR as ce a Ce? a A yags Yet Another GEE Solver 4.0-2.2 
Error: unexpected numeric constant in "16 1" F] zoo 53 Infrastructure for Regular and Irregular Time Series (Z's 1.7-12 
ES ee te ee, A Ordered Observations) 
Error: unexpected numeric constant in "29 1” 8 
>> System Library 
Error: unexpected '>' in ">" boot Bootstrap Functions (Originally by Angelo Canty for S) 1.3-6 
view(data2) class Functions for Classification 73-12 
> View(datal) = WF] cluster Cluster Analysis Extended Rousseeuw et al. 2.0.1 
4 de وون‎ F] codetools Code Analysis Tools for R 0.2-11 
~ | Sl comniler The R Comniler Packane 320 7 





ص 09:08 


2016/08/01 


شكل(1-7) شاشة RSudio‏ 


ي شرح jas‏ لواجهة المستخدم الرسومية Graphic Users‏ 
Interface /GUI‏ ) والتي قد اعداد او اصدار البرنامج : 





qe qe 


٠ quer 


CUA للعير‎ 


The Editor المحرر‎ 549 :Y y! 
نريد الاحتفاظ بها في وقت لاحق »اي يمكن نقلها الى نافذة وحدة التحكم‎ R بلغة‎ 
. Ctrl+Enter 


ثانياً :نافذة وحدة التحكم Console‏ 
19 ن موقعها المربع الايسر في الاسفل وهي )538141 الشبيهة بنافدة برنامج R‏ حيث 
يتم فيها AUS‏ الاوامر وتنفيذ التعليمات البرمجية ومختلف العمليات في R‏ ومشاهدة 


الناتج . 


ثالثاً : نافذة بيئة العمل Environment‏ والتاريخ History‏ 
وموقعها المربع الایمن في الا علی ويحنوي علی تبویبین هما : 
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الفصل السايع : البرمبة في R‏ 


)1( تبويب بيئة العمل Environment‏ : في هذا الجزء من الشاشة يتم خزن اي 
كائن او دالة او اي رمز قمنا بتعريفه في وحدة التحكم كما ويتم سرد مجموعة بيانات 
او استيراد قواعد بيانات وجعلها متاحة على الفور في وحدة التحكم 

وكما في الشکل(2-7) تظهر مربعات منقطة مقابل اسم كل كائن او متغير في 
بينة العمل » وعند النقر علیها یمکنك الاطلاع على البیانات في جزء الشاشة المجاور 
الى اليسار. 

(C) RStudio 111111119999١ eS eso 





File Edit Code View Plots Session Build Debug Tools Help 
GJ- æ- | = E) Project: (None) ~ 


Environment History 


AE H Import Dataset» x ic 









11 -| data2 1 data! 











Ey | w Filter 

aa bb coc dd | Environment r 
1 1 2 3 a| E Name & Typ ۱ 
- 1 = = Fldatal dat..9 1. ab. 

2۱ F] data? dat. 1 6. 1 obs.. & 

3 3 = 3 Elm num. 6 7. num [1:6.. 
4 4 8 24 [E] mm mat..6 1. mum [.. Û] 
5 5 2 3 
6 6 12 36 


Kui‏ ) 2-7( تبويب بيئة العمل 
)2( تبويب التاريخ History‏ 
يحتفظ بسجل لجميع الأوامر السابقة. كما أنه يساعد عند اختبار عمليات 
التشغيل. حيث يمكنك حفظ إما اللائحة بأكملها أو اختيار الأوامر التي تريد وإرسالها 
إلى برنامج نصي R‏ لمتابعة عملك. ۰ 


Files, plots, packages , help, Viewer نافذة‎ : kL 
: يلي‎ LS y موقعها الى اليمين في الاسفل وتحتوي على خمس تبويبات‎ 
يظهر معه شريط يحتوي‎ Cus . وهو غني عن التعريف‎ Files تبويب الملفات‎ (1) 
وغيرها » كما ويعرض اسماء‎ Renames Delete و‎ New Folder ايقونات‎ 
للملفات‎ 
Plots تبويب‎ (2) 

لعرض الرسوم البيانية التي انشات في R‏ والتي قد تكون رسم بياني واحد او 
اكثر وكما في الشكلين (3-7) و(4-7) التاليين : 


لغة البرمبة R‏ للحوسبة الأحصائية 


Files Plots Packages Help ۲ 
1:1 (Top Level) R Script 
@ Zoom | -E| 50۲ | © [ Y G 


Console 

> m = matrix(runif (100) ,10,10) 
> image(m) 

> 





> 
co 
o 
Y 
o 
a 
o 
+ Scatterplot (prestigest ne ارس ی‎ it pane, 73, Nat MÈT = == 
ع ا‎ x pres He: + BKAN, Spar 7 زا و‎ a ee 





شکل(4-7)تبویب Plot‏ لعدة رسوم 


كما يمكن حفظ الرسم البياني بضرب ايقونة Export‏ وفيها الحفظ كصورة او 
ملف تنسيق PDF‏ او نسخه الى Clipboard‏ . 
(3) تبويب حزم Packages‏ 
تعرض قائمة من الحزم الإضافية المدرجة في تركيب ills RStudio‏ يتم 
تحميلها ايضا إلى R‏ ووصف موجز بجوار كل حزمة. يمكنك أيضا تثبيت الوظائف 
الإضافية الأخرى عن طريق النقر على أيقونة "Install Package"‏ . 
)4( تبو يب المساعدة Help‏ 
eae 5‏ و OCA ee‏ 
الاتصال 6 تعليمات حول أمر ~ الاستفهام عنه في وحدة التحكم بالايعاز Mae‏ 
factor‏ 
)5( تبويب Viewer va le‏ 
هو أساسا RStudio‏ في المتصفح e‏ حيث يمكنك تطوير تطبيقات الويب مع R‏ 
وحتى إطلاق شبكة استضافة محليا لتطبيقات داخلها. 


الفصل السايع : البرمبة في R‏ 


7 الفرق بين R‏ و RStudio‏ 
R‏ هي del‏ البرمجة أو din‏ البرمجيات كما يسمونها عن الحوسبة العلمية 
والرسومات. 
0 يعتبر فعال لانجاز الامور بسرعة ويقدم واجهة احسن لبرنامج R‏ 
فهو بيئة التطوير المتكاملة ل (Integrated development /IDE ( R‏ 
0 وتطبيق البرمجيات التي توفر مرافق ALLS‏ لمبرمجي الكمبيوتر 
لتطوير البرمجيات. IDE;‏ يتكون عادة من محرر شفرة المصدرء وبناء أدوات 
التشغيل ادلي ومصحح. 
يمكنك استخدام R‏ دون RStudio‏ باستخدام أي محرر لكتابة البرامج النصية. 
ولكن RStudio‏ في حد ذاته ليس من المفید جدا دون 1 . 
0 هو الواجهة الأمامية Gilly RA‏ يجعل استخدام deal R‏ واكثر 
فعالية ريس لك استخدام الکثیر من الحزم بسهولة . 
اضافة الى هذا فان RStudio‏ يضم العدید من النوافذ المفتوحة في نفس الوقت 
وادوات لتنظیم العمل في المشاریع وغيرها. 
واخيرا فان کلاهما برامج نیت للحوسبة الاحصانية »ولها مصدر مفتوح 
ومجاني . 


he E 


dz‏ البرحجة R‏ للحوسبة الأحصائية 


اسئلة الفصل السابع 





س[ : EN‏ بناء الجملة والمخطط (ان وجد) لعل عبارة من العبارات التالية: 


)3( عبارة مو[م...1۴ المتداخلة orde (A)‏ ۰ 
س2: اكتب برنامج لكل مما يلي : 
)1( يختبر الارقام من 10-1 ويطبعها بحيث يطبع الارقام الاکبر من 6 والاصغر 
(2) يدخل كل مرة عدد ويختبره ليطبع فردي او زوجي ؟ 
(3) يدخل مجموعة من الاعداد ويختبرها ليطبع لكل منها فردي او زوجي ؟ 
(4) يحسب الارقام الزوجية في المتجه التالي : 
23 « ۰6۰45 ۰98 ۰2 ۰7 330 
)5( بحسب متتالية فيبوناتشي للعدد 20 ؟ 
)6( اذا كان 2-5 اختبر واطبع الاعداد الاقل من £15 
س3: وضح استخدام الاوامر التالية في R‏ »مع ذكر مثال ؟ 
print() < nchar() « format() ۰ paste()‏ 
س4: ما هي RStudio‏ ؟وضح مکونات واجهة المستخدم الرسومية ؟ 
س5: اذكر الفرق بين RStudio sR‏ ؟ 








الفصل الثامن 
الحزم في R‏ 


8 مقدمة 

8 كيفية استخدام الحزم 

8 تعريف الحزم في R‏ 

8 تحميل حزم البيانات 

8 تحميل حزم البرامج 

Packages قائمة‎ 8 

Load package... 1.6.8 

Set CRAN mirror... 2.6.8 
Select repositories... 3.6.8 

Install package(s)...4.6.8 
Update packages... 5.6.8 
Install package(s) from local zip files... 6.6.8 
على حاسبتك‎ R اضافة حزم لبرنامج‎ 8 
مستودعات لحزم اضافية‎ 8 

اسئلة الفصل الثامن 





dz‏ البرمجة R‏ للحوسبة الأحصائية 


8 مقدمة 

فى «R‏ الوحدة الاساسية للمشاركة هی الحزمة. وتمثل الحزمة باقة من 
التعليمات البرمجية والبيانات والوثائق» و الاختبارات» سهلة للمشاركة مع الآخرين. 
فقد اضاف GY!‏ الخبراء في مجال العلوم الاحصائية وظائف على ۸ في شكل حزم 
والتي هي ايضاً متاحة بحرية على صفحات الانترنت e‏ واعتبارا من بداية عام 
5 كان هناك أكثر من 6000 حزمة متوفرة على شبكة الارشيف الشامل R‏ 
أو كرا «CRAN‏ وان توفر مجموعة كبيرة من الحزم من بيانات وتطبيقات تمتد 
عبر العديد من التخصصات المختلفة فى الدراسة هو احد الأسباب التى جعلت لغة 
R‏ ناجحة للغاية » cue‏ ان هناگ احتمالات بان شخصا ما قد Ja‏ بالفعل ¿all‏ 
التي نعمل علیهاء ويمكنك الاستفادة من عملهم من خلال تحمیل تلك الحزمة . 


8 كيفية استخدام الحزم 

قبل ان نتمکن من استخدام الحزمة ۰ عليك Y y‏ تثبیتها e‏ فبعض الحزم هي 
اساسية ويتم a‏ عند بيت حزم R‏ والحزم الاخرى ان تأني مع تركيب 
توجد ثلاث دوال مهمة في استخدام الحزم (ليكن اسمها مثلا (X:‏ وهي : 
)1( تحمیل الحزمة من داخل >install.packages("x") :R‏ 
)2( استخدام الحزمة في >library("x a : R‏ 
)3( للحصول على المساعدة يكون اما ب: >?x‏ او help(x)‏ 


8 تعريف الحزم في +1 . 

بالإضافة إلى الميزات الاساسية يوفر R‏ العديد من الحزم والتي هي مجموعة 
من الدوال او الرموز او البيانات في لغة البرمجة e R‏ اي ملفات اضافية جاهزة لحل 
مشاكل معقدة فى R‏ وان النسخة المحملة RI‏ تحتوي على مجموعة محددة من 
الحزم التي تمكننا من قراءة وتحليل البيانات والقيام بالاختبارات الاحصائية. 


الفصل الثافن spall:‏ في R‏ 


8 تحميل حزم البيانات 


تكون الحزم المتوفرة في R‏ هي بيانات مخزونة في R‏ ولاستدعاءها نكتب 
فتظهر مجموعات البيانات في حزمة 


>data() الايعاز‎ 


"25616 ضمن نافذة مجموعات بيانات ۸ وكما في الشكل )1-8( 


اضعا ».| 


A 


‘datasets’: 


Monthly Airline Passenger Numbers 1949-1960 
Sales Data with Leading Indicator 


m 


Sales Data with Leading Indicator 

Biochemical Oxygen Demand 

Carbon Dioxide Uptake in Grass Plants 

Weight versus age of chicks on different diets 
Elisa assay of DNase 

Daily Closing Prices of Major European Stock 
Indices, 1991-1998 

Determination of Formaldehyde 

Hair and Eye Color of Statistics Students 
Harman Example 2.3 

Harman Example 7.4 

Pharmacokinetics of Indomethacin 

Effectiveness of Insect Sprays 

Quarterly Earnings per Johnson & Johnson Share 
Level of Lake Huron 1875-1972 o 
Intercountry Life-Cycle Savings Data 

Growth of Loblolly pine trees 

Flow of the River Nile 

Growth of Orange Trees 

Potency of Orchard Sprays 


شکل(1-8) ايعاز data()‏ 


ولادراج وعرض اي من حزم البيانات المتوفرة » نكتب في سطر الاوامر اسم 


الحزمة 


IR R data sets 


Data sets in package 


AirPassengers 
BJsales 


BJsales.lead (BJsales) 


BOD 

CO2 
ChickWeight 
DNase 
EuStockMarkets 


Formaldehyde 
HairEyeColor 
Harman23. cor 
Harman74.cor 
Indometh 
InsectSprays 
JohnsonJohnson 
LakeHuron 
LifeCycleSavings 
Loblolly 

Nile 

Orange 
OrchardSprays 


4 


> BOD 
Time demand 
8.3 
10.3 
19.0 
16.0 
15.6 
19.8 


کل یم w‏ ظط M oU‏ 
خم يخ Go‏ طبر in‏ 4 


8 تحميل حزم البرامج 


يتضمن برنامج R‏ برامج اضافية لها امكانية اوسع في Gall‏ » وللحصول على 


Slibrary()‏ فتظهر النافذة في 
تختلف تبعا للاعدادات المحلية في جهاز الکمبیوثر الخاص 


قائمة بجمیع الحزم لمتبته في R‏ نکتب الامر ۰ 
الشکل(2-8) والتي ة 
بك 


© ۰ 
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لغة البرمبة R‏ للحوسبة الأحصائية 


IR R packages available [o | © هما‎ 


Packages in library ‘C:/Users/dell/Documents/R/win-library/3.2': 





acc Processes Accelerometer Data 

BiasedUrn Biased Urn model distributions 

epiR Tools for the Analysis of Epidemiological Data 

mhsmm Inference for Hidden Markov and Semi-Markov S 
Models F 

mvtnorm Multivariate Normal and t Distributions 

PhysicalActivity Process Physical Activity Accelerometer Data 

yags Yet Another GEE Solver 

zoo 53 Infrastructure for Regular and Irregular 


Time Series (Z's Ordered Observations) 


Packages in library ‘C:/Program Files/R/R-3.2.0/library’: 


base The R Base Package 

boot Bootstrap Functions (Originally by Angelo Canty 
for 5) 

class Functions for Classification 

cluster Cluster Analysis Extended Rousseeuw et al. 

codetools Code Analysis Tools for R 

compiler The R Compiler Package 

datasets The R Datasets Package 

foreign Read Data Stored by Minitab, 5, SAS, SPSS, 


Stata, Systat, Weka, dBase, 





شكل )2-8( الامر library()‏ 
ولتحميل اي حزمة من الحزم المدرجة في النافذة اعلاه ولتكن ۲ "boot‏ نستخدم 
الايعاز : >library(boot)‏ 
وللحصول على معلومات حول الحزمة المطلوبة وهي في "boot" Whe‏ « نکتب 
الایعاز : Slibrary(help=boot)‏ فتظهر النافذة التالية في شکل(3-8) : 


Documentation for package ‘boot’ |. mE 
R package ا‎ 


> 


Information on package "boot" 


1m 


Description: 

Package: boot 

Priority: recommended 

Version: 1.3-16 

Date: 2015-03-08 

Authors@R: c {person ("Angelo”, "Canty", role = "aut", email = 
"cantya@mcmaster.ca™), person("Brian", "Ripley", 
role = c("aut”, "trl", "cre”), email = 
"ripleyÉstats.ox.ac.uk", comment = "author of 
parallel support”)) 

Maintainer: Brian Ripley <ripley@stats.ox.ac.uk> 

Note: Maintainers are not available to give advice on 
using 5 package they did not author. 

Description: Functions and datasets for bootstrapping from the 
book "Bootstrap Methods and Their Applications” by 
A. C. Davison and D. Y. Hinkley (1997, CUP), 
originally written by Angelo Canty for 5. 

Title: Bootstrap Functions [Originally by Angelo Canty for 
5) 

Depends: R {>= 3.0.0), graphics, stats 

Suggests: MASS, survival 


4 ۴ 





library(help=boot) شكل(3-5)‎ 
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الفصل الثامن : الحزم في R‏ 


وللحصول على بيانات تلك الحزمة نستخدم ايعاز البيانات 


البيانات الخاصة بحزمة "boot"‏ وكما في شكل(4-8) : 
kajta-‏ 


1m 








>data()‏ فتظهر 





Data sets in package "boot": 


acme Monthly Excess Returns 

aids Delay in AIDS Reporting in England and Wales 
aircondit Failures of Air-conditioning Equipment 
airconditT Failures of Air-conditioning Equipment 
amis Car Speeding and Warning Signs 

aml Remission Times for Acute Myelogenous Leukaemia 
beaver Beaver Body Temperature Data 

bigcity Population of U.S. Cities 

brambles Spatial Location of Bramble Canes 
breslow smoking Deaths Among Doctors 

calcium Calcium Uptake Data 

cane Sugarcane Disease Data 

capability Simulated Manufacturing Process Data 
catsM Weight Data for Domestic Cats 

cay Position of Muscle Caveolae 

cd4 CD4 Counts for HIV-Positive Patients 
cd4.nested Nested Bootstrap of cd4 data 

channing Channing House Data 

city Population of U.S. Cities 

claridge Genetic Links to Left-handedness 

cloth Number of Flaws in Cloth 

co. transfer Carbon Monoxide Transfer 

coal Dates of Coal Mining Disasters 


boot بیانات الحزمة‎ (4-8) Ki 
Packages قائمة‎ 8 


a 


يمكن ادراج الحزم المتوفرة على حاسبتك في لغة البرمجة +1 وذلك من الشاشة 

الافتتاحية لبرنامج +1 ومن شريط القوائم نفتح قائمة Packages‏ كما في شکل(5-8) 
RGui (32-bit)‏ 

File Edit View Misc | Packages| Windows Help 










Load package... 


Set CRAN mirror... 
Select repositories... 
Install package(s)... 

Update packages... 


Install package(s) from local zip files... 


Packages قائمة‎ (5-8) Si 
يلي توضيح استخدام كل منها ؟‎ Lads » حيث تحتوي على 6 اوامر‎ 








لغة البرمبة R‏ للحوسبة الأحصائية 


Load package... 1.6.8‏ 
نختار Load package...‏ 
فتظهر نافذة ) (Select one‏ 
تعرض جميع الحزم المتوفرة 

وكما في شکل(6-8): 


RGui (32-bit) 
File Edit View Misc Packages Windows Help 


R R Console ] 5 (ets) 


A 


> local ({pkg <- select.list (sort (.packages (all.available = TRUE) ),graphics=TRUE) 
+ if(nchar(pkg)) library (pkg, character.only=TRUE)}) 























base 7 
BiasedUrn 
boot 
class 
cluster 
codetools 
compiler 
datasets 
epiR 
foreign 
graphics 
grDevices 
grid 
KernSmooth 
lattice 
MASS 
| Matrix 
methods 
mgcv 
mhsmm 
mvtnorm 
| nime 
nnet 


parallel 
PhysicalActivity 










survival 7 


Select one شكل (6-5)/نافذة‎ 
Set CRAN mirror... 2.6.8 


عند اختياره تظهر قائمة باسم 


LSe"CRAN mirror"‏ في شكل )7-8( ليتم فیھا 
اختيار اسم البلد التي سيتم تحميل الحزمة منها. 


China (Beijing 4) [https] 
China (Beijing 4) 
China (Xiamen) 
Colombia (Cali) [https] 
Colombia (Cali) 

Czech Republic 
Ecuador 

El Salvador 

Estonia 

France (Lyon 1) [https] 
France (Lyon 2) [https] 
France (Lyon 2) 

۱ France (Marseille) 
France (Montpellier) 
France (Paris 1) 

France (Paris 2) [https] 
France (Paris 2) 
Germany (G<U+00F6>ttingen) 
Germany (Munster) [https] 
Germany (Munster) 
Greece 

ungary 
Iceland [https] 
Iceland 
India 
Indonesia (Jakarta) 


) 
Italy (Padua) [https] 
Italy (Padua) 
Italy (Palermo) - 


شكل CRAN mirror 333U(7-8)‏ 
Select repositories... 3.6.8‏ 
تعرض اسماء الحزم الموجودة والتي تحتاج لتجديد وكما في الشكل(8-8) : 











الفصل لاهن : الحزم قي ۸ 


Repositories 
CRAM 


Biot software 
Biol annotation 
Biol experiment 
Biol extra 
CRAN (extras) 


Omegahat 
R-Forge 
rforge.net 





شكل (9-5/نافذة Repositories‏ 
Install package(s)...4.6.8‏ 
عند اختیار ها تظهر القائمة CRAN mirror‏ كما في اعلاه وعند اختيار الجهة 
اوالبلد الذي نريد تحميل الحزم منها » تظهر قائمة اخرى Packages‏ تشمل اسماء 
الحزم » نختار Sis‏ حزمة (acc)‏ ليبدأ بتحميل عدد من الحزم »كما في شكل(9-8). 
downloaded 5556 |‏ 39% | 


URL: http://cran.um.ac.ir/bin/windows/ contrib/s.2/plyr_1.8.4.zip 


MO 





شكل(9-8) تحميل me‏ من الحزم 
Update packages... 5.6.8‏ 
عند اختياره تظهر ايضا قائمة CRAN mirrorr‏ وعند اختيار الجهة التي 
نريد تحديث الحزم التابعة لها » تظهر [Sper Packages to be A‏ 
LS updated‏ في شكل(10-8) ونختار Sis‏ الحزمة MASS‏ ثم 
موافق ليظهر مربع الحوار Question‏ وكما في شکل(11-8) : 


codetools 
foreign 


KernSmooth E ا‎ 5 
شکل(10-6) قائمة — بت‎ 
١ Matrix 
mgo Packages to be updated 
an 
rpart 
spatial 
survival 


OK Cancel 








Question [])مربع حوار‎ 1-8) Ki 











لغة البرمجة R‏ للحوسبة الأحصائية 


٠ العبارات التالية‎ R Console نافذة‎ ist وتظهر ايضا‎ 
> update.packages (ask='graphics',checkBuilt=TIRUE) 
Warning: package 'MASS' in library 'C:/Program Files/R/R-3.2.0/library' will nos 
Warning in install.packages (update [instlib == 1, "Package"], l, repos = repos, 5 

"lib = "C:/Program Files/R/R-3.2.0/library"' is not writable 

trying URL ‘http: //ftn.uni-sofia.bg/CRAN/bin/windows/contrib/3.2/boot_1.3-18.ziF 
Content type ‘application/zip' length 592031 bytes (578 KB) 
downloaded 578 EB 


1m 


package ‘boot’ successfully unpacked and MDS sums checked 


The downloaded binary packages are in 
C:\Users\dell\AppData\Local\Temp\RtmpI1lbtbn\ downloaded packages 


Install package(s) from local zip files... 6.6.8‏ 
وهنا يظهر مربع حوار Select files‏ ۰ كما في شكل )12-8( وفيه اسماء فضاءات 
عمل مخزونة في R‏ وتاریح تعدیلها > یمکن فتح احدها في فضاء العمل الحالي ,و قد 

نحتاج لحزم اضافية لبعض العمليات المتطورة والبرمجيات المعقدة . 
m‏ جع 2 © - data‏ لل Look in:‏ 


R epl.incin 2015/11/09 „06:24 
IR epi.sclip 2015/11/09 م‎ 4 


A | 
| 


‘| File name: [ = 


oftype: (Aien |‏ عمط 
شكل )12-8( = & حوار Select files‏ 





8 اضافة حزم لبرنامج ۸ على حاسبتك 

تسمح لغة البرمجة R‏ بتطوير سريع لأدوات جديدة حسب الطلب ‏ وتتمثل تلك 
الادوات JS‏ حزم Packages‏ جاهزة للاستخدام وسهلة التقاسم مع الا خرین» 
لتثبيت حزمة يجب توفر شيئين : 
او Y‏ : الاتصال بالانترنت لتحميل الحزمة 
ثانياً :اسم الحزمة المراد تثبیتها 

وان القوة والمرونة في لغة R‏ هو في توفر العدد الهائل من حزم البیانات والحزم 
لمعظم التطبیقات الاحصائية الادارية والمالية والاقتصادية والعلمية والثقنية ,فتجد 


الفصل الثافن pall:‏ في R‏ 


الاحتمال الكبير لحل المشكلة التي تعمل عليها » وبذلك يمكنك الاستفادة من عملهم 
حيث أن أغلبية الباحثين بمجال البرمجة الحيوية يقومون بنشر خوارزمياتهم بلغة 
ال R‏ في مستودع الحزم ) 6100020110401 ) »ويمكن تطبيق تعليمات برمجية 
بسيطة للمشاركة مع الاخرین في ارسال الحزمة الخاصة بك . 
نحتاج اولاً لتثبيت الحزم الى تعيين الدليل لتخزين الحزم وفيما يلي الاوامر ليتم 
استخدامها لفحص والتحقق منها واستخدام حزم R‏ : 
Y I‏ التحقق من الحزم المتوفرة: ۱ 
- الدالة library()‏ والتي تم توضيحها سابقا 
- الدالة J paali search()‏ على كافة ill a jall‏ تم تحميلها UL‏ في بيئة :R‏ 


> Search () 


[1] ™.GlobalEnyv" "package ۳ "package: graphics" 
[4] "package:grDevices” "package :utils"™ "package :datasets"™ 
[7] “package :methods"™ "Autoloads” "package:base” 


- تثبيت حزمة جديدة : هناك طريقتان لإضافة حزم R‏ الجديدة : 
1( تثبيت مباشر من كرا :CRAN‏ 
الأمر التالي di‏ الحصول على حزم مباشرة من صفحة ويب كرا وتثبيت الحزمة 
في بيئة . قد يطلب منك اختيار الاقرب و المناسب لموقعك. 
الصيغة العامة : install.packages("package Name")‏ 
مثال : ليكن اسم الحزمة yags‏ 
install.packages("yags " )‏ 
2( تثبيت حزمة يدويا: 
ننتقل الى برنامج R‏ لتحميل الحزمة التي نحتاجها » وتحفظ الحزمة كملف Zip‏ في 
موقع مناسب في النظام المحلي » ثم نستخدم الامر التالي لتثبيت الحزمة في :R Ady‏ 
install.packages(file_name_with_path, repos = NULL, type =‏ 
"source"‏ 
مثال : لتحميل الحزمة yags"‏ " : 
install.packages("C:/yags_3.98-1.3.zip", repos = NULL, type =‏ 
"source"‏ 


dz‏ البرحجة R‏ للحوسبة الأحصائية 


8 مستودعات لحزم اضافية 

وفيما يلي اسماء مخازن تحتوي على حزم اضافية ومجموعة ابحاث مفتوحة 
المصدر مطورة من قبل باحثين . 

(Comprehensive R Archive Network) CRAN (1) 

وهو موقع لحزم تخدم في عدة مجالات مثل المعلومات الحيوية ويسرد مجموعة 
واسعة من المهام في العلوم الاجتماعية والاحصاء وعلم الوراثة وارتفاع اداء 
الحاسبات والة التعلم والتصوير الطبي كما وتُستخدم من قبل ادارة الاغذية والعقاقير 
باعتبارها مناسبة لتفسير البيانات في البحوث السريرية ولتحميل حزمة من موقع كرا 
نختار قائمة الحزم packages‏ في شريط القوائم وكما في شکل(5-8) 
من قائمة packages‏ نختار install packages...‏ --- يظهر مربع حوار cran‏ 
1 لاختيار حزمة واحدة ثم یظهر مربع حوار packages‏ ویمکن اختیار اکثر 
من حزمة. ( install ar (Packages N ame‏ > 
or http://cran.r-project. org)‏ 





شكل )13-8( موقع cran‏ 
Bioconductor (2)‏ 
هو موقع مفتوح المصدر يوفر حزم R‏ لتحليل بيانات الجينوم عالية الانتاجية الا انه 
يقبل الحزم التي تخضع لشروط الموقع من اضافة لتوضيح الحزمة والدوال مع امثلة 
وبترتيب خاص .. لهذا نجد اغلب الباحثي يتعاملوا مع الموقع CRAN‏ لسرعة نشر 
برامجهم . يتم تحميل الحزم بخطوتين : 
Y y -‏ : تحميل موقع bioconductor‏ : 
source("http:// bioconductor.org/biocLite.R")‏ > 
- ثانياً : تحميل a jall‏ باستعمال الدالة biocLite("Packages Name")‏ > 


E E he 


AG c عله‎ 





الفصل 


س 1: 
س 2: 
س 3: 
س 4: 
س5: 
س‌6: 
س/: 


سک 


R الحزم في‎ : abl 





3 2# a) 
5 . a 7 دكر ثلاث د ال‎ 
هي اللغة الناجحة ؟‎ R لذي جعل لغة‎ 
01 ما هو تعريف لحزم في ج1 ؟ وما انواعها ؟‎ 
ی و ری ل ل‎ 
ee ate ie a 
e es 2 ۳ 
ESPAI ak dala ta و‎ ala leal: 
9 | عرف كل ۱ ن تحتوي على حزم اضافية ومجموعة‎ 
Au Bin tor ۰ CRAN : من‎ 
hasi ممع توضيح لطريقة‎ 0201110 


الحزم ؟ 


س9 


a. 
۰ ole لكل‎ ۶ is! اكتب الدالة‎ ۰ 
الحصول على كافة .= تم تحميلها حالياً‎ (1) 
تحميل الحزم من داخل ۸ ؟ ف‎ )2( 
الحصول على المساعدة ؟‎ )3( 
تحميل حزم البيانات ؟‎ )4( 

5 
En‏ تحمیل حرم البرامج ۲ 

تحميل bioconductor ¿3 y‏ ؟ 


و و 





الفصل التاسع 
تطبيقات احصائية 


9 مقدمة 
9 المتوسط Mean‏ والوسيط Median‏ والمنوال Mode‏ 

Y Linear Regression الاتحدار الخطي‎ 9 
> ۱ predict() داله التنبق‎ 9 
ver // ‘Multiple Regression الاتحدار المتعدد‎ 9 
eee Normal Distribution التوزيع الطبيعي‎ 9 
|, dnrom() دال‎ 1.6.9 
pnorm() دالة‎ 9 
qnorm() دالة‎ 9 
YY ANO rnorm() 41 4.6.9 
'BiñomialDistribution التوزيع الثنائي (ذي الحدین)‎ 9 

dbinom() دالة‎ 9 

pbinom() دالة‎ 9 

qbinom() 4: 3.7.9 

rbinom() 4. 4.7.9 

Poisson Regression اتحدار بواسون‎ 9 
Covariance التغاير‎ 9 

Correlation الارتباط‎ 10.9 







t test t اختبار‎ 12. 9 
f distribution f توزيع‎ 1.9 
اسئلة الفصل التاسع‎ 


الفصل التاسع : تطبیقانت احصانية 


9 مقدمة 
اهمية هذه اللغة في اغلب واهم العمليات الاحصائية وذلك بتهيئة اوامر سهلة وخالية 
من التعقيد من حيث كتابة الصيغة او العبارة البرمجية للحصول على نتائج واضحة 
ومفصلة 

يقدم هذا الفصل عدد من التطبيقات الاحصائية بشرح مختصر للتقنية الاحصائية 
وبناء الجملة الاساسية لحساب الدوال مع وصف للمعايير المستخدمة في الدالة » 
اضافة الى الامثلة لكل تطبيق . 


9 المتوسط Mean‏ والوسيط Median‏ والمنوال Mode‏ 
9 المتوسط 
ويتم حساب المتوسط عن طريق ايجاد مجموع القيم وتقسيمها على عدد القيم في 
سلسلة بيانات. 
الدالة mean()‏ تستخدم لحساب المتو سط في R‏ وبناء الجملة الأساسية لحساب 


المتوسط في R‏ هي : 
mean(x, trim = 0, na.rm = FALSE, ...)‏ 
وفيما يلى وصف المعايير المستخدمة: 
× هو ا المدخلات. 
0 يستخدم للتخلي عن بعض القيم من كل نهاية للمتجه بعد فرزها. 
0 يستخدم لإزالة القيم المفقو دة من المتجه. 
مثال: 
>x<-c(12,5,9,34,-3,-7,-14,28)‏ 
>mean(x)‏ 
8 ]1[ 
مثال 
عند استخدام المعلمة trim‏ لحساب المتوسط حيث trim=0.3‏ يعني سيتم اسقاط 3 
قيم من طرفي المتجه بعد ترتيبه: 
>x<-c(12,7,3,4.2,18,2,54,-21,8,-5)‏ 
>mean(x,trim=0.3)‏ 


dz‏ البرمجة R‏ للحوسبة الأحصائية 


بعد الترتيب يكون : (54 ,18 ,12 ,8 ,7 ,4.2 ,3 ,2 ,5- ,21) >x<-c‏ 
نزیل من المتجه القيم (-۰21 -5:2( من الیسار 5 )612618 54( فیصبح zul‏ : 
5.55 ]1[ 
مثال 
في حالة وجود قيم مفقودة تطبيق الخيار NA‏ لإسقاط القيم المفقودة نستخدم na.rm‏ 
TRUE‏ = وهو يعني إزالة القيم NA‏ 
>x <- c(12,7,3,4.2,18,2,54,-21,8,-5,NA)‏ 
>mean(x,na.rm=TRUE)‏ 
8.22 ]1[ 
اما في حالة استخدام الدالة mean()‏ فیکون الناتج : 
>mean(x)‏ 
NA‏ ]1[ 
9 الوسيط Median‏ 
هو الرقم الذي يفصل النصف الأعلى من العينة أو المجتمع عن النصف الأقل 
بحيث يتساوى على طرفه عدد القيم بعد ترتيبها تصاعديا. فإذا كان عدد هذه القيم 
فردياً فالوسيط هو الرقم النصفي الذي يقسم هذه القيم» أما إذا كان عدد القيم زوجیا 
فالوسيط هو الوسط الحسابي لمجموع الرقمين الوسيطين. 
بناء الجملة الاساسية لحساب الوسيط في AR‏ : 
median(x,na.rm=FALSE)‏ 
وفيما يلى وصف المعايير المستخدمة ۰ 
× هو EN‏ المدخلات. 
0 يستخدم لإزالة القيم المفقو دة من المتجه, 
مثال 
>x<-c(-5,12,-8,12,7,3,4.2,18,2,54)‏ 
median(x)‏ > 
5.6 ]1[ 


الفصل التامع : تطبيقاته أحصائية 


9 المنوال Mode‏ 
هو القيمة الاكثر تكرارا في مجموعة من البيانات . في R۸‏ لا توجد دالة لحساب 
dial‏ ك sr‏ الم اله كيت تاج اتمه ass‏ نی ق الول 

مثال 
انشاء دالة { getmode <- function(v)‏ > 
unique(v)‏ -< 1-111010۷7 
+uniqv| which.max(tabulate(match(v, uniqv)))]}‏ 
انشاء متجه رقمي SV z2002.1231234.153>53223)‏ 
result <- getmode(v)‏ > 
print(result)‏ > 
2 ]1[ 
انشاء متجه حرفي charv <- c("o"","1t"", "the", "it", 1t")‏ > 
<result >- getmode(charv)‏ 
<print(result)‏ 
"it"‏ ]1[ 


9 الانحدار الخطي Linear Regression‏ 
تحليل الانحدار هو lal‏ احصائية تستخدم على نطاق و aul‏ جدا لانشاء نمودج 
الغير خطية يكون الاس لاي متغير لا يساوي 1 حيث ينشئ منحنی . 
المعادلة الرياضية العامة للانحدار الخطي هي: y=axtb‏ 
۷ : هو المتغير المعتمد 
×: هو المتغیر المستقل 
ج و 9 الثوابت التي تسمی معاملات. 
9 خطوات لانشاء الانحدار 
في مثال بسيط عن الانحدار هو توقع وزن الشخص عندما یعرف طول قامته ؟ 


171 ۱ 


dz‏ البرحجة R‏ للحوسبة الأحصائية 


ذلك نحن بحاجة الی العلاقة بین الطول والوزن للشخص. Lady‏ يلي خطوات لانشاء 
العلاقة l ٠‏ 
1 ثنفذ تجربة بجمع عينة من قيم الطول والوزن 
2( إنشاء نمودج العلاقة باستخدام دالة lm()‏ في R‏ 
3) ايجاد معاملات من النموذج اعلاه وانشاء معادلة رياضية باستخدامها 
4( احصل على ملخص لنموذج العلاقة لمعرفة متوسط الخطأ في التنبؤ. 
5( للتنبؤ بالوزن لاشخاص جدد نستخدم دالة predict()‏ في R‏ 
9 ادخال البيانات 
وفيما يلي عينة من البيانات ولتكن قيم الطول : 
151« 174« 138« 186« 128« 136« 179« ۰163 ۰152 131 
ads‏ الوزن : ۰63 ۰81 ۰56 ۰91 ۰47 ۰57 76« 72« 62« 48 
9 دالة Im()‏ 
بناء الجملة الاساسية ¿Val‏ 1100 في الانحدار الخطي : 
Im(formula,data)‏ 

وفيما يلي وصف المعايير المستخدمة ۰ 

formula -‏ : هي رمز عرض العلاقة بين × و y‏ 

data -‏ : هي متجهات والتي سيتم تطبيق الصيغة. 
9 إنشاء نموذج العلاقة والحصول على المعاملات 


> zZ <- 2151, 174, 138, 186, 128, 136, 179, 163, 152, 131) 
> Y <— c({63, Bl, 56, 91, 47, 57, 76, T2, 12, 46) 
> Im(y~x) 


Call: 
1۳0 {formula = y ~ x) 


Coefficients: 
(Intercept) x 


-38.4551 0.6746 


9 ملخص العلاقة 
تستخدم summary () alla‏ للحصول على النتائج التالية : 
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الفصل القاسع : تطبيقات أحصائية 


> Summary (lm(y~x) ) 


Call: 
Im(formula = y ~ x) 


Residuals: 
Min 10 Median 30 Max 
—6. 3002 -1.6629 0.0412 1.8944 3.9775 


Coefficients: 

Estimate Std. Error t value Pr(>]t]) 
(Intercept) -38.45509 6.04901 -4.778 0.00139 ۳ 
x 0.67461 0.05191 12.997 1.16e-06 *** 


Signif. codes: D ***** 0.001 **** 0.01 *** 0.05 تمه‎ 0.1 * 7 1 


Residual standard error: 3.253 on 3 degrees of freedom 
Multiple R-squared: 0.9546, Adjusted E-squared: 0.9491 
F-statistic: 168.9 on 1 and 8 DF, p-value: 1.16%e-06 


predict() 924) Als 4,9‏ 
بناء الجملة الا ساسبه predict() A‏ في الانحدار الخطي 
predict(object , newdata)‏ 
وفيما يلى وصف المعايير المستخدمة : 
object‏ : هو الصيغة التي تم إنشاؤها بالفعل باستخدام دالة ImO‏ 
newdata‏ هو متجه تحتوي على قيمة جديدة للمتغير المتنبئ 
X <- 151, 174, 138, 186, 128, 136, 179, 163, 152, 131)‏ > 
y €- c(63, 81, 56, 91, 47, 57, 76, 72, 62, 48)‏ > 
relation<-1m(y-x)‏ > 
a -data. frame (x=1'70)‏ > 
result=predict (relation, a)‏ > 
> 


result 
1 
76.226693 
: (1-9) ولرسم الانحدار بيانياء انظر شكل‎ 
> X <- 21151. 174, 138, 186, 128, 136, 179, 163, 152, 131) 
> y سیب‎ clos, Bl, 56, 591, 47, 57, 76, 72, 62, 46) 
> Dlot(y,x,col = "blue" main = "Height £ Weight Regression", 
+ abline (im(z~y)),cez = 1.3,pch = 16,zlab = "Weight in Eg”, 
+ ylab = "Height in cm”) 


dz‏ البرحجة R‏ للحوسبة الأحصائية 


Height & Weight Regression 
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Multiple Regression الانحدار المتعدد‎ 9 


۷ =a+blxl + b2x2 +...bnxn 


y‏ : هو متغير معتمد 

0 هي معاملات 

1,2,0 هي متغيرات مستقلة 

بناء الصيغة الاساسية لدالة Im()‏ في الانحدار المتعدد هي كما ‘ie‏ 


Im(y ~ x1+x2+x3...,data) 


لتكن مجموعة البيانات هي mtcars‏ المتاحة في البيئة R‏ 


الفصل التامع : تطبيقاته أحصانية 


> Im(mpg~dispthptwt, data = input) 


Call: 
Im(formula = mpg ~ disp + hp + wt, data = input) 


Coefficients: 
(Intercept) disp hp wt 
37.105505 -0.000937 -0.031157 -3.800891 


> coef (model) [1] 
(Intercept) 
37.10551 
> coef (model) [2] 
disp 
-0 . 0009370091 
> coef (model) [3] 
hp 
-0.03115655 
> coef (model) [4] 
wt 
-3.200831 


9 التوزيع الطبيعي Normal Distribution‏ 
توزيع البيانات أمر طبيعي. وهو ما يعني» عند الرسم البياني مع قيمة المتغير في 
محور × الافقي وعدد من القيم في المحور الراسي نحصل على منحنى بشكل جرس. 
وسط المنحنى يمثل متوسط مجموعة البيانات. في الرسم البياني» خمسين في المئة 

البياني. ويشار إلى هذا النحو بالتوزيع الطبيعي في الإحصاءات. 
dnorm(x, mean, sd)‏ 
pnorm(x, mean, sd)‏ 
qnorm(p, mean, sd)‏ 
rnorm(n, mean, sd)‏ 

وفيما يلي وصف المعايير المستخدمة في الدوال المذكورة أعلاه : 

x‏ هو متجه من الأرقام. 

م هو متجه من الاحتمالات. 


dz‏ البرحجة R‏ للحوسبة الأحصائية 


n‏ عدد من الملاحظات (حجم العينة). 
Mea‏ : القيمة المتوسطة لعينة البيانات e‏ القيمة الافتراضية هي صفر. 
Sd‏ : الانحراف المعياري. ولها قيمة افتراضية هي .1 
9 دالة dnorm()‏ 

هذه الدالة تعطي ذروة التوزيع الاحتمالي في كل نقطة لوسيلة معینف والانحراف 
لمعياري .انظر شكل )2-9( )1. = x <- 58-10, 10, by‏ 
مثال )0.5 = y <- dnorm(z, mean = 7.5, sd‏ 
الاح ع plot‏ 


0.6 


04 


0.2 





dnorm دالة‎ (2-9) Kä 


9 دالة pnorm()‏ 
هذه الدالة تعطي احتمال وجود رقم عشوائي موزع بشكل طبيعي لتكون أقل من 
قيمة عدد معين. ويسمى أيضا "دالة التوزيع التراكمي". انظر شکل(3-9) 
مثال 
E <- seq{-10, 10, by = .2(‏ > 
Y <- pnorm(x, mean = 2.5, sd = 2)‏ > 
plot (x,y)‏ > 


الفصل القاسع : تطبيقات أحصائية 


10 


0.8 


0.6 


0.4 


0.2 





0.0 


شكل )3-9( pnorm U‏ 
qnorm() 41 3.6.9‏ 
تحتاج هذه الدالة قيمة احتمال وتعطي رقم يطابق قيمة احتمال قيمة تراکمية» انظر 
شكل(4-9). 
مال )0.02 = E <- seq(0, 1, by‏ > 
Y <- qnorm(x, mean = 2, sd = 1)‏ > 
plot (x, ¥)‏ > 





x 


gnorm داله‎ (4-9), Ji 


9 دالة rnorm‏ )( 
پنم استخدام هذه الدالة لتوليد أرقام عشوائية DE Cola‏ طبيعي. فانه يأخذ حجم العينة 
کمدخل ویولد العدید من الأرقام العشوائية انظر شکل(5-9). 
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dz‏ البرحجة R‏ للحوسبة الأحصائية 


> y=rnorm(50) مثال‎ 
> hist (y, main = "Normal Distribution”) Normal Distribution 


A ooo ooo‏ الو 
2 1 0 1- 2 

















rnorm U شكل(5-9)‎ 


Binomial Distribution (ذي الحدین)‎ ¿A التوزيع‎ 9 

نجاح هذا الحدث والاخر هو الفشل « مثال رمي قطعة نقود 4 والاسئلة التي تعتمد 

الاجابة بنعم او لا . 

: توجد أربع دوال لتوليد التوزيع ذي الحدين. وهي كما في ادناه‎ R في‎ 
dbinom(x, size, prob) 
pbinom(x, size, prob) 
qbinom(p, size, prob) 
rbinom(n, size, prob) 

وفيما يلي وصف المعايير المستخدمة ۰ 

X‏ هو منجه من الأرقام. 

0 غير متجه من الاحتمالات. 

n‏ عدد من الملاحظات. 

Size‏ عدد الاختبار ات 

Prob‏ هو احتمال نجاح كل تجربة. 

dbinom() 4: 1.7.9 

هذه الدالة تعطي احتمال توزيع الكثافة في كل نقطة. 





الفصل التاسع : تطبيقات أحصائية 


متال : انشاء عينة من 50 رقم والتي تتزايد بمقدار 1 
>x<-seq(0,50,by=1)‏ 


لانشاء توزيع ذو حدين : y<-dbinom(x,50,0.5)‏ > 
الرسم البياني لهذه العينة : >plot(x,y)‏ 


وعند تنفيذ التعليمات اعلاه » نحصل على النتيجة كما في شكل (6-9): 


002 004 006 008 0 





00 


0. 


dbinom® (6-9) Ji 
pbinom() 413 2.7.9 
هذه الدالة تعطي الاحتمال التراكمي للحدث. فهي قيمة واحدة تمثل الاحتمالات.‎ 


مثال 
# احتمال الحصول على 26 أو أقل لظهور صورة hh‏ من 51 قذفة لعملة واحدة. 
>x<-pbinom(26,51,0.5)‏ 
>print(x)‏ 
0.610116 ]1[ 
3.7.9 دال gbinom()‏ 
تحتاج هذه الدالة قيمة احتمال ويعطي رقم يطابق القيمة التراكمية. 
مثال :كم عدد ظهور الصورة ط لاحتمال 0.25 عند قذف العملة المعدنية 51 مرات. 
>x<-qbinom(0.25,51,1/2)‏ 
>print(x)‏ 
23 ]1[ 


dz‏ البرمجة R‏ للحوسبة الأحصائية 


rbinom() 41: 4.7.9‏ 
هذه الدالة تولد العدد المطلوب من القیم العشوائية من احتمال معين من عينة معينة. 
مثال : جد 8 قيم عشوائية من عينة من 150 مع احتمال 0.4؟ 
>rbinom(8, 150,.4)‏ 
48 56 67 51 51 64 54 58 ]1[ 


9 اتحدار بواسون Poisson Regression‏ 
ينضمن نمادج انحدار نستخدم E‏ نمادذج العد وجداول الا Y Laia‏ عم سبيل 
المثال» عد عدد من المواليد أو عدد من الانتصارات في سلسلة مباراة لكرة القدم. 

أيضا قيم المتغيرات المعتمدة يتبع توزيع بواسون. 

المعادلة الرياضية العامة لانحدار بواسون هي : 

log(y) = a+ b1x1 + b2x2 + bnxn..... 
: حيث ان‎ 
هو متغير معتمد‎ y 
و 6 هي معاملات رقمید.‎ 2 
۱ هو متغیر توقع.‎ × 
. للدالة هو‎ 

elm(formula,data,famıly) 

وفيما يلي وصف. المعايير المستخدمة في أعلاه y‏ 
formula‏ :هي رمز عرض العلاقة بين المتغيرات. 
‘data‏ هي de gana‏ بپانات تعطي aus‏ هذه المتغيرات. 
family‏ : هي كائن في R‏ لتحديد تفاصيل هذا النمودج. قيمتها "بواسون" للانحدار 
¿e‏ 
مثال 
لدينا مجموعة بيانات "Warpbreaks"‏ الذي يصف تأثیر نوع الصوف A)‏ أو (B‏ 
والتوتر (منخفضة؛ متوسطة أو عالية) على عدد من فواصل تشوه في النول. دعونا 
النظر "فواصل" كمتغير استجابة وهو عدد من عدد من التخفيضات. يتم أخذ 
لصوف "نوع" و "التوتر" کمتغیرات ضبق فن نموذج الانحدار US‏ يلي : 


الفصل التامع : تطبيقاته أحصانية 


~ wool+tension,data=warpbreaks,family 


slm(formula=breaks 
=poisson) 


ويمكن تنفيذ دالة summary‏ للحصول على النتائج التالية : 


> Summary (qlm(formula=breaks ~ wool+ttension, data-warpbreaks, family =poisson) ) 


data = warpbreaks) 


-001 ۰۳۷۲۳ 0.01 **” 0.05 ۰.۳ 0.1 * " 1 
poisson family taken to be 1) 

on 53 degrees of freedom 

on 50 degrees of freedom 


Covariance التغاير‎ 9 


family = poisson, 


30 Max 
1.1902 4.2616 


Error z value Pr(>]z]) 


-04541 61.302 < 2¿e-16 
-05157 -3.994 6.49e-05 
06027 -5.332 9.73e-08 
-063956 -8.107 5 . 212-15 


Call: 


glm {formula = breaks ~ wool + tension, 


Deviance Residuals: 
Min 10 Median 
-3.6871 -1.6503 -0.4269 


Coefficients: 
Estimate Std. 


{Intercept} 3.693196 0 
woolB -0.20599 0 
tensionM -0.32132 0 
tensionH -0.51849 0 
signif. codes: 0 ‘****" Û 


(Dispersion parameter for 


297.37 
210.39 


Null deviance: 
Residual deviance: 
AIC: 493.06 


Number of Fisher Scoring iterations: 4‏ 
في summary) Als‏ نبحث ge‏ القيمة م في العمود الأخير إلى أن تكون أقل من 
5 للنظر في تأثير متغير توقع على متغير معتمد كما شهدت wooltype‏ بوجود 

نوع من التوتر M‏ و H‏ يكون لها تأثير على عدد من فواصل. 


هو مقياس لكمية تغيير متحولين مع بعضهما » وتكون قيمته موجبة » عندما يتغير 
المتحو لان فوق القيمة المتوقعة معا » وسالبة عندما يكون احد المتحولين فوق القيمة 


Rr res EA 


Cov(X, VJECX-u)(Y-v) 
متحولين عشوائيين‎ Y ۰26 : حيث‎ 
المتوقعة‎ X قيمة‎ E(X)= u 


dz‏ البرحجة R‏ للحوسبة الأحصائية 


E(Y)= ۷‏ قيمة Y‏ المتوقعة وتستخدم R E-‏ الدالة cov()‏ لحساب التغاير 
والتباين : هو حالة خاصة يكون فيها المتحولان متساويان 


10.9 الارتباط Correlation‏ 
ان هذه العلاقة هي تقنية احصائية يمكن أن تظهر كيف تر تبط بقوة أزواج من 
المتغيرات. على سبيل المثال» الطول والوزن على أن هذه العلاقة غير واضحة إلى 
Ja‏ يتم احتساب الارتباط Lu‏ یعرف باسم معامل Y!‏ تباط ‏ التي لديها قيمة يجب أن 
تقع بين -1 و +1.بالضبط في منتصف الطریق. وهذا صحيح خاصة إذا كنت قد 
وصفت منتصف نقطة من النطاق الخاص بك (مثلاً تقدير "الجيد" هو نصف الطريق 

بين "ممتاز" و "مقبول"). 
في R‏ تستخدم cor() Hall‏ لحساب معامل الارتباط » والصيغة المبسطة هي : 

Cor(x,use=,method=) 
: حيث ان‎ 
بحدد التعامل مع البيانات المفقودة € الخیارات في اعطاء طريقة لحساب‎ Use 
التغایرات ویکون اختصار الواحدة مما يلي‎ 
"everything", "all.obs", "complete.obs", "na.or.complete", or 
"pairwise.complete.obs 
pearson, spearman : طريقة تحديد نوع الارتباط. الخيارات هي‎ : method 
or kendall 
۰ التغاير والارتباط بين المتغيرات الرقمية‎ 9 
البيانات‎ isl complete.obs »نستخدم الخيار‎ mtcars في اطار البيانات‎ 
المفقودة:‎ 

>cor(mtcars, use="complete.obs", method="kendall") 

>cov(mtcars, use="complete.obs") 
: ارتباط مصفوفة‎ 9 
هي الصفوف‎ mpg, cyl , disp »حيث أن‎ mtcars من‎ 
هي اعمدة‎ hp, drat , wt 
hp drat wt 
>x<-mtcars[ 1:3] mpg -0.7761684 0.6811719 -0.8676594 


cyl 0.8324475 -)[. 5999381 0.7824958 
disp 0.7909486 -0.7102139 0.8879799 


الفصل التامع : تطبيقاته أحصائية 


>y<-mtcars[4:6] 
>cor(x,y) 


09 الارتباط بين متجهين 
العبارة {fO‏ غالبا ما تستخدم داخل داللات معروفة من قبل المستخدم » وفيما يلي مثال 
نمودجي : ۱ 
- مثال : الارتباط بين متجهین من الارقام غالبا ما بحسب باستخدام دالة ‚cor()‏ 
یمکن ان نضیف رسم مبعثر للبیانات وكما يلي : 
corplot <- function(x, y, plotit) {‏ > 
if (plotit == TRUE) plot(x, y)‏ + 
cor(x, y)‏ + 


+) 

يمكن تطبيق هذه الدالة لمتجهين بدون رسم بالكتابة كما يلي: 
corplot(c(2, 5, 7), c(5, 6, 8), FALSE)‏ > 
0.953821 ]1[ 

مثال 

x <- rnorm(10,sd=5,mean=20) 
> y <= 2.5*x = 1,0 + rnorm C0, s0=9,mean=—0) 
> cor(x,y) 
[1] 0.8667313 


one-way Analysis of Variance ANOVA تحيل التباين الاحادي‎ 9 

هی در dul‏ تاثير عامل واحد له عدة مستويات مختلفة » وتكرر التجربة فى كل 
مستوى لعدد من المرات. وان الدالة aov()‏ هي دالة تحليل التباين في ۸ Sus c‏ 
يستخدم R‏ بسهولة في تحليل ANOVA‏ لتحليل التصاميم في الحزم الاحصائية › 
وان الباحثون يستخدمون ANOVA‏ في عدة طرق : 


)1( اتجاه واحد : >fit<-aov(y~A,data=mydataframe)‏ 
)2( تصميم مجموعة عشوائياً >fit<-aov(y~A+B,data=mydataframe)‏ 
)3( اتجاهين >fit<-aov(y~A+B+A:B,data=mydataframe)‏ 

>fit<-aov(y~A*B,data=mydataframe) 
>fit<-aov(y-A+x,data=mydataframe) تحليل التغاير‎ (4) 


dz‏ البرمجة R‏ للحوسبة الأحصائية 


(5) واحد ضمن عامل 
>fit<-aov(y~A+Error(Subject/A),data=mydataframe‏ 


9 اختبار ttest t‏ 
في R‏ تستخدم دالة t.test()‏ لانتاج مجموعة متنوعة من اختبارات t‏ 
)1( اختبار t‏ لمجموعتين مستقلة : >t.test(y~x)‏ 


حيث y‏ رقمي و عامل ثنائي 
)2( اختبار t‏ لمجموعتين مستقلة : >t.test(yl,y2)‏ 
حيث syl‏ 72 ارقام 
)3( مزدوج اختبار ] : >t.test(y1,y2,paired=TRUE)‏ 
)4( اختبار t‏ عينة واحدة : >t.test(y,mu=3)‏ 
وفيما يلي توضيح للمعلمات اعلاه : 
x‏ : متجه رقمي لقيم البيانات (غير فارغة) 
ry‏ متجه رقمي لقيم البيانات (غير فارغة) وهو اختياري 
0 : منطقية تشير إلى ما إذا كنت ترغب في اقتران اختبار ]. 
mu‏ : رقم يشير إلى القيمة الحقيقية للمتوسط gh)‏ الاختلاف في الوسائل إذا كنت تنفذ 
اختبار اثنين من العينة). 
امثلة 
t.test(il:1lo, y = <€(7:20))‏ > 


Welch Two Sample t-test 


data: 1:10 and c(7:20) 

۲ = -5 4349, di = 21.382, p-value = 1.855e-05 
alternative hypothesis: true difference in means is not equal to 0 
95 percent confidence interval: 

-11 . 052802 4.947198 

sample estimates: 
mean of x mean of y 

5.5 13.5 


الفصل التاسع : تطبيقات احصائية 


> t.test (1:10, y = c(7:20, 200)) 
Welch Two Sample t-test 


data: 1:10 and e(7:20, 200) 

T = - 1,6329, di = 14.165, p-value = 0.1245 

alternative hypothesis: true difference in means is not equal to 0 
95 percent confidence interval: 
-47.242900 6.376233 

sample estimates: 

mean of x mean of y 

۱ 5 . 50000 25.93333 


> plot (extra ~ group, data = sleep) 
> with(sleep, t.test(extral[group == 1], extra[group == 2])) 


Welch Two Sample t-test 


data: extralgroup == 1] and extra[group = 2] 
t = -1.6608, di = 17.776, p-value = 0.079395 
alternative hypothesis: true difference in means is not equal to Û 
95 percent confidence interval: 
-3 . 3654832 0.2054832 
sample estimates: 
mean of x mean of y 
0.75 2.33 


extra 
2 


> t.test (extra ~ group, data = sleep) 7 





Welch Two Sample t-test 


group 


data: extra by group t.test Wy / شکل(9-‎ 
t = -1.8608, di = 17.776, p-value = 0.07939 
alternative hypothesis: true difference in means is not equal to 0 
95 percent confidence interval: 
-3 . 355 4832 0.2054832 
sample estimates: 
mean in group 1 mean in group 2 
0.75 2.33 


dz‏ البرحجة R‏ للحوسبة الأحصائية 


9 توزيع f distribution f‏ 
هو التوزيع الاحتمالي المرتبط بالمتغيران العشوائيان المستقلان 1,2 ولعينة 
عشوائية 01,02 على التوالي وبدرجات حرية V2=n2-13 bhad Vl=n1-1‏ 

f لحساب توزيع‎ R 
هنا المئة الأولى من قيم‎ 95 ahi مثال : جد المئوي 95 (المئوي هو القيمة التي‎ 
مع (۰5 2( درجات‎ F البيانات عندما يتم فرزها في ترتيب تصاعدي.) لتوزيع‎ 

الحرية ؟ 


> af(.%, 0111-5. df2=2) 
[1] 19.29641 
I 


"in 


9 اختبار ] بين اثنين من الفروق 
ينفذ اختبار ۴ لمقارنة الفروق من عینتین من السکان وکما يلي Cus‏ نستخدم Als‏ 
var.test()‏ في R‏ : 
>var.test(x, y, ratio = 1,‏ 
alternative = c("two.sided”, "less", "greater"),‏ 
conf.level = 0.95, ...)‏ 
لفئة "صيغة" 
>var.test(formula, data, subset, na.action, ...)‏ 
وفيما يلي توضيح للمعلمات | ‘ole‏ 
x,y‏ متجهات رقمية من قيم البيانات او تركيب اجسام النموذج الخطي 
0 : نسبة افترض من فروق السکان و y‏ 
6 : سلسلة أحرف تحديد الفرضية البديلة» يجب أن يكون واحدا من 
۲ (الافتر .""oreater" or "less". (l‏ يمكنك فقط aj‏ الحرف 
الاو لي. 
conf.level‏ :مستوی الثقة للفاصل الثقة التي تم إرجاعها. 
formula‏ :صيغة صيغة النموذج LHS - RHS‏ حيث LHS‏ هو متغير رقمي 
إعطاء قيم البيانات و RHS‏ عاملا مع اثنين من المستويات. 


الفصل القاسع : تطبيقات أحصائية 


۵ : مصفوفة اختياري أو إطار بيانات (أو ما شابه ذلك) التي تحتوي على 
المتغيرات في الصيغة formula‏ افتراضيا يتم أخذ المتغيرات من البيئة 
(formula)‏ 

Subset‏ : متجه اختياري يحدد مجموعة فرعية من الملاحظات التي سيتم 
استخدامها. 

na.action‏ : دالة تدل على ما ينبغي أن يحدث عندما تحتوي على بيانات تحتوي. 
افتراضات إلى ("getOption ) "na.action‏ 


> X <- ۳1101۳10 ) 5, mean = 0, sd = 2) مثال‎ 
> y <- rnorm(30, mean 1, sd 1[ 
> VAE.test(z, Y) 


F test to compare two variances 


data: x and y 
F = 3.974, num df = 49, denom df = 29, p-value = 0.0001656 
alternative hypothesis: true ratio of variances is not equal to 1 
95 percent confidence interval: 

1.996651 7.476829 
sample estimates: 
ratio of variances 

3.974042 


> var.test(lm(x ~ 1), 100) ~ 1)) 
F test to compare two Variances 


data: Im(x ~ 1) and lm{y = 1) 
F = 3.974, num df = 49, denom df = 29, p-value = 0.0001656 
alternative hypothesis: true ratio of variances is not equal to 1 
95 percent confidence interval: 

1.996651 7.476829 
Sample estimates: 
ratio of variances 

3.974042 


he ره‎ 


dz‏ البرحجة R‏ للحوسبة الأحصائية 


اسئلة الفصل التاسم ۱ 


س1: اذکر الدالة في لغة Ame pall‏ ۸ لكل مما يلي : 


)8( الا 





) d 

)2( الوسيط_ )5( الانحدار الخطي )11( الارتباط 

(3) اختبار t‏ | (6) توزيع f‏ (9)تحليل التباين الاحادي 

: س2: ما الغرض من استخدام کل من الدوال التالية‎ 
qbinom() (7)| dbinom() (5)| qnorm() (3)| dnorm() (1) 
rbinom() (8) | pbinom() (6) | rnorm() (A) | pnorm() (2) 

س3: ما الغرض من استخدام كل من المعلمات التالية : 

prob(10) | newdata (7) | formula(4) 

(9) 


(11) (5) | 





س4: اكتب التعليمة البرمجية في لغة R‏ لحساب المتوسط للقيم التالية حيث 
trim=0.2‏ * )5,77-,42,0-,68,15,3,19-,8,23( 


س5: اكتب التعليمة البرمجية في لغة 8 لحساب كل من المتوسط والوسيط للقيم 
التالية : (4,-9,NA,27,-33,56,-3,NA)‏ ؟ 

س6: انشئ متجه رقمي واخر حرفي وكتابة التعليمات البرمجية بلغة R‏ لحساب 
المنوال لكل منهم ؟ 

س7: اكتب التعليمات البرمجية لحساب الانحدار الخطي وملخص العلاقة للبيانات 
التالية بين الكميات المعروضة من السلعة (a)‏ وسعر السلعة (b)‏ € 

32 ۰6 ۰4 ۰7۰11» 21 :3 


الفصل القاسع : تطبيقات أحصائية 


1» 3» 1: 7:5:2:b 
n=123,167,135, 189 151,144, 156 ,188 : س8: لديك المتجهان التالیان‎ 
m=54 ,34 ,76,42, 51,72, 37,19 

اكتب التعليمات البرمجية بلغه R‏ لداله التنبؤ والرسم البياني ؟ 

س9: اعط مثال لحساب الانحدار المتعدد لأي بيانات متاحة في 8 ؟ 

س10: جد 5 قيم عشوائية من عينة من 80 مع احتمال 0.3؟ 

س11: طبق دالتين من دوال توليد التوزيع الطبيعي والرسم البياني على سلسلة 
البيانات a=seq(-7,9,by=.2): a a‏ ؟ 

س12: اذكر دوال لتوليد التوزيع دي الحدين ؟ 

3 ليكن men‏ متجهين من الارقام » اكتب Alla‏ لحساب الارتباط ورسم بياني 
س14: يستخدم الباحثون ANOVA‏ في عدة طرق « la Sal‏ واكتب بناء الجملة 
الاساسية لكل الدالة ؟ 
س5: لدراسة علاقة الاستهلاك المحلي (y)‏ بانتاج (x)‏ لمادة الاسفلت(بالملیون 
برميل) خلال عدة سنوات ٠‏ اخذنا عشر قراءات تقريبية كما يلي : 

5 |5 ,6 |5 6 7 8 |9 8 ,6 الا | 
|x| 10۱ 13۱ 15| 14| 9| 7| 6۱ 6۱ 5| 5‏ 
اکتب برنامج في R‏ بحسب معادلة الانحدار الخطي البسیط وتوقع قيمة الاستهلاك 
عندما بصل الانتاج 6.000.000 [برمیل؟ 
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اسم الشکل 
MRAN‏ 
مجالات عمل الحوسبة الاحصائية 
الشاشة الافتتاحية في R dal‏ 
قائمة File‏ 
قائمة Edit‏ 
مربع حوار GUI‏ 
preferences‏ 
قائمة View‏ 
قائمة Misc‏ 
Packages 204‏ 
قائمة Windows‏ 
قانمه Help‏ 
مربع حوار Question‏ 
R‏ 
شاشة الايعاز citation‏ 
نافذة حزم البيانات في R‏ 
نافذة الحزمة lattice‏ 
نافذة مجموعة الببانات 
الرسم البياني 
hist(AirPassengers JÛ‏ 
الرسم البياني 
hist(Temperature )+‏ 

hist(temperature)‏ مع 

اضافه المعلمات 
وضع البيانات على الرسم 
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JAY‏ دوم الاشکال 


5-6 

6-6 

7-6 

5-6 

9-6 
10-6 
11-6 
12-6 
13-6 
14-6 
15-6 
16-6 
17-6 
18-6 
19-6 
20-6 
21-6 
22-6 
23-6 
24-6 
25-6 
26-6 
27-6 
26-6 
29-6 
30-6 
31-6 
32-6 
33-6 
34-6 


رسمين بعدد فواصل مختلفة 
رسم داله Plot()‏ 
اضافة وسیلة ایضاح 
ایعاز mfcol‏ 
curve Ùl-‏ 
barplot il-‏ 
تعليمة horiz=TRUE‏ 
دالة table()‏ 
dotchart() Un‏ 
a a ae‏ 
boxplot() Un‏ 
1 بمربعات di gle‏ 
دالة pairs()‏ 
مخطط بين Weights MPG‏ 
layout() Un‏ 
دالة Pie()‏ 
smoothScatter Y!‏ 
دالة Ogaplot‏ 
stripchart() U-‏ 
اثنين من stripchart()‏ 
contour() U‏ 
filled.contour X‏ 
رسم بیانات ب رکان 
رسم ب رکان بشکل اجمل 
Qpersp +.‏ 
رسم مخروطي قائم 


JAY‏ سے الاشکال 
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شاشة RStudio‏ 
Plot si‏ لرسم واحد 
تبویب Plot‏ لعدة رسوم 

data() jx! 

library() Y! 

library(help=boot) 
boot ببانات الحزمة‎ 
Packages قانمه‎ 
Select one نافذة‎ 
CRAN mirror نافذة‎ 
Repositories نافذة‎ 


تحميل عدد من الحزم 
قائمة 


Packages to be updated 
Question مربع حوار‎ 
Select files ls مربع‎ 
cran موقع‎ 
رسم الانحدار‎ 

dnorm دالة‎ 

pnorm “lo 

gnorm دال‎ 

rnorm داله‎ 
dbinom*)- 
t.test دالة‎ 
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